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NTRODUCTION 


Cet ouvrage rassemble des programmes de calculs usuels dans 
le domaine de la résistance des matériaux. 


Ainsi, on peut trouver parmi les sujets traités, des programmes 
concernant les calculs d'éléments de structures courantes, comme 
les poutres ou les portiques. Tous ces programmes ont été écrits 
pour le micro-ordinateur ORIC 1 en langage BASIC. 


Avec 48 Ko de mémoire vive ORIC 1 peut traiter tous ces 
programmes dont la mémoire nécessaire ne dépasse pas 30 Ko pour 
le plus étendu. 


Chaque programme est présenté par une courte description, 
un listing avec commentaires, ainsi qu'un ou plusieurs exemples 
d'applications. 
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e Poutre de roulement sur appuis simples soumise aux charges 
roulantes de deux ponts roulants ..................... 189 


TILISATION 
DES PROGRAMMES 


Tous les programmes présentés peuvent être utilisé soit par 
visualisation sur écran de 40 caractères de largeur soit imprimés. 


La lecture sur écran est facilitée par l’emploi de l'instruction 
WAIT programmée pour arrêter le déroulement du texte le temps 
nécessaire pour permettre à l’utilisateur de vérifier l’entrée correcte 
des données et de pouvoir lire les résultats. 


La connexion d’une imprimante directement à l'interface 
parallèle du micro-ordinateur ORIC 1, permet l'impression des 
données et des résultats. Il suffit de remplacer dans le programme 
l'instruction PRINT par LPRINT les lignes d’édition qu’on veut 
imprimer. 

Concernant l'introduction des données, le système conversa- 
tionnel a été adopté pour tous ces programmes. Toute question 
posée par le micro-ordinateur doit recevoir une réponse pour passer 
à la suivante. Des tests de validité ont été conçus pour signaler les 
erreurs éventuelles dans l’entrée des paramètres. 


Des blocs de programme peuvent être réutilisés, lors de la 
création de nouveaux programmes par l'utilisateur. Les sous-pro- 
grammes ou les divers blocs de programme éventuellement réutilisa- 
bles sont signalés dans le listing correspondant à l’aide de l’instruc- 
tion REM. 


XI 


Tous les programmes ont été vérifiés pour s’assurer de leur bon 
fonctionnement, ainsi que tous les exemples DnnrIques donnés 
dans cet ouvrage. 


Cependant l’auteur et l’éditeur n’accordent aucune garantie 
implicite ou explicite et en aucun cas ne sauraient être tenus pour 
responsables des dommages fortuits ou consécutifs du fait de la 
fourniture, de l’utilisation ou du fonctionnement de ces programmes. 
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ALCUL DES 
CARACTÉRISTIQUES 
GÉOMÉTRIQUES 
DES SECTIONS 


CALCUL DES CARACTÉRISTIQUES GÉOMÉTRIQUES 
D'UNE SECTION FORMÉE DE TRIANGLES, RECTANGLES, 
ET TRAPÈZES CONTIGUS, A BASES PARALLÈLES 


Ce programme permet de calculer les caractéristiques géomé- 
triques d’une figure formée par un maximum de cinq éléments 
différents disposés symétriquement par rapport à un axe vertical. 
Les bases des éléments doivent être parallèles. 


L'introduction des données commence par la figure inférieure, 
les dimensions À, B, et la hauteur H seront introduites, dans cette 
ordre pour chaque figure. 


EXEMPLE 





NOMBRE DE FIGURES: 4 
K*xkx DIMENSIONS ###% 


FIG 1 A=0 B=2 H=4 

FIG 2  A=4 E=4 H=S 

FIG 3  A=S E=6 H=Z 

FIG 4 À=é E=Q H=2 
* CARACTERISTIQUES * 


SECTION TOTALE=46.5 
INERTIE TOT.1x:=447,756 
INERTIE TOT.1y=78.27 
MODULE I/VXINF=55,297 
MODULE I1/vxSUF=79,.976 
RAYON GIRAT.ix=3, 105 
RAYON GIRAT.iy=1.297 


DISTANCE C.D.G=8.401 


HN FOI ON He 


REM PFROGR. *CARGEDM* ER0O/9/83 

CLS : PRINT : FRINT 

REM CALCUL CARACT.GEOMETRIQUES 

REM SYM. AXE Y-Y AXE X-X HASE FIG.i1 

REM TRAP, TRIANG.RECTAN.CARRE (5 FI16) 

GOTO 20 

19 FRINT'ERREUR !! MAX 5 FIGURES" 

15 FRINT :FRINT 

20 INPUT "Nombre de figures'"s;N 

25 IF N°5 THEN 10 

27 PRINT :PRINT 

40 FOR I=1i TO N 

60 FRINT'Les dimensions en ordre:A,kH,H Fig.No'"I 
65 FRINT:FRINT 

80 INFUT'A"3;ACI) :A(I)=ABS(A(I)) 

90 FRINT:FRINT 

100 INFUT'EA";H(I) :H(I)=ARS(R(I)) 

110 PRINT: PRINT 

120 INFUT'H";H(I) :H(I)=ARS(H(I)) 

122 PRINT: FRINT 

125 IF H(I)=0 THEN FRINT'"'ERREUR" 

124 IF H{I1)=0 THEN 60 

125 NEXT I : PRINT : PRINT 

145 FRINTSFC(9)" ###x DIMENSIONS +K##%" 

146 PRINTSFE (9) " 

147 FRINT:PRINT 3: PRINT : FRINT 

15Q FORI=1 TO N 

200 FRINTSFC(6)"FIG "I" A="A(I)SPC(4)"H="B(I)SPC( 
4) '"H="H(I) 

210 PRINT :PRINT 

212 PRINTSPE (6) esse sesmen mener nn en 5 
215 PFRINT : NEXT I 

217 FOR I= 1 TON 

220 IF AI) *GANDE (I) =GORA(I) =GANDE (I) *“QTHENT@Q 
340 IF A(I)=R(I) THEN 700 

260 IF ACI)ESSERCI) AND R(I):0 OK AI) *OTHEN 500 
300 IF A(I)=Q THEN 740 

320 IF B(I)=0 THEN 400 

340 E1(CI)=H(I)#x2/35 

"350 F1CI)=R(I)#H(I)/E 

560 IX(I)=F1CI)#H(1)*2/18 

370 IY(I)=F1(I)#H(1)"2/24 

580 W@(I)=IX(I)/E1(I) 

29Q W1(I)=IX(1)/(H(I1)-E1(I1)) 

395 WY(I)=2#IY(I)/EB(I) 

3986 G60T0O 1000 

4D0G E1(I)=H(I)/Z 


EURUATJ 


410 F1(I)=A(I)#H(I1)/2 

420 IX(I)=F1(I)#H(I1)"2/18 

450 IY(I)=F1(I)#A(1)"2/24 

44Q WB(I)=IX(1)/E1{(I) 

450 Wi(I)=IX(I)/(H(I)-E1(I)) 

468 WY(I)=2#IY/A(I) 

480 GOTO 1000 

500 :IF A(I):B(I) THEN E1(I)=H(I)#(A(I)+2#B(I1))/( 
F#(A(I)+H(I))) 

520 IFA(I)2BR(I)THENEL(I)=H(I)-H(I)#(2#ACI)+H(I))/ 
(Z#(A(I)+B(1))) 

540 :F1(I1)=(A(I)+H(I))#H(I1)/2 

5600 :IX(I)=H(I) "TH (AI) 2+4#ACI)#R(I)+B(I1)"2) / (36 
#(A(I)+E(I1))) 

590 :1IY(I)=H(I)#(ACI) Z+AUI) THRCI)+ACI)#H(I)"2+H 
(1)*5) /48 

600 :WB(I)=IX(I)/E1(I) 

620 :W1(I)=IX(I)/(H{(I)-E1(I1)) 

640 :IF A(I)*R(I) THEN WY(I)=2#IY(I)/A(I) 
660 :IF H(I)*A(I) THEN WY(I)=2#IY(I)/KH(I) 
680 GOTO 1000 

700 E1(I)=H(I)/2 

720 F1(I)=A(I)#H{(I) 

74Q IX(I)=A(I)#H(I1)*5/12 

77Q IY{(I)=H(I)#xA(I)*5/127 

78° WB(I)=IX(I)/E1(I) 

790 WY(I)=IY(I)#2/A(I) 

800 Wi(I)=WB(I) 

1000 NEXT I 

1100 FOR I=1i TO N 

1150 F(I)=F1(1) 

1155 F(I)=F(I)+F(I-1) 

1180 NEXT I 

1500 FOR I=1i TON 

1540 D(I)=H(I)-E1(I) 

1560 IT(I)=IX(I) 

1575 YY(I)=IY(I) 

1600 IF N=i THEN 2640 

1740 D(I)=H(I-1)-E1(I-1)+E1(I) 7 

1770 D2(I)=H(I-1)-E1(I-1)+E1(I1)+D2(I-1) 
1800 D2(N)=D2(N)-E1(1) 

1820 A(N)="1(1)*4F1(N)#DE2(N)*2/F(I) 

1850 IX(I)=IX(I)+IX(I-1) 

1825 ITCI)=F1CI)K#F1(I-1)#D(1)*2/F (CN) 

184Q IT(I)=IT(I)+IT(I-1) 

1860 IY(I)=IY(I)+IY(I-1) 

1908 YY(N)=IY(I) 
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2000 
2050 
2100 
2120 
2140 
2160 
2180 
2200 


Me Le ar 
ana a 


22950 
2400 
2420 
2440 
2450 
2460 
2480 
2530 
2560 
2840 
2645 
2650 
2660 
2680 
2690 
2695 
2700 
2720 
2730 
2740 
2780 
2790 
2800 
2820 
2824 
2826 
2850 
2840 
2860 
2880 
z900 
2920 
2950 
2950 
2955 
2980 
2990 
2995 


NEXT I 

FRINT 

IF N= S THEN A(N)=F1 (1) #F1 (5) #D2 (N) 2/F (N) 
IF N= S THEN DS=D2 (N) -D (N) 

IF N= STHENDé=DE (N) — (D (N) —D (N—1) ) 

IF N= 5 THEN D7=D2 (N) -D (N-5) 

IF N= S THEN ACN)=ACN)+F1(1)#F1 (4) xDS"2/F (N) 
IF N= 5 THEN ACN)EA(CN)+F1 (1) #F1 (3) xD6*2/F (N) 
IF N= S THEN A(N)=AUCN)+F1 (2) #F1 (4) xD7*2/F (N) 
IF N= S THEN 2530 

IF N=4 THEN A(N)=F1 (1) #F1 (4) #D2 (N)2/F (N) 

IF N=4 THEN D3=D2 (N) -D (N) 

IF N=4 THEN D4=D2(N)-D(N-2) 

IF N=4 THEN A(N)=A CN) +F1 (1) #F1 (3) #D3"2/F (N) 
IF N=4 THEN A(N)=ACN)+F1(2) «F1 (4) #D4*2/F (N) 
IF N=4 THEN 2530 


II (N)=IT (N)+A CN) +IX (N) 

IF N=? THEN II(N)=IT(N)+IX (N) 

IF N=i THEN II (N)=IX (N) 
II(N)=INTOCII (N)#1000+.005) /1000 
RX=SQR (II (N) /F CN) ) 

RX=INT (RX#1000+.005) /1000 
RY=SOR CYY CN) /F (ND) ) 

RY=INT (RY+1000+.005) /1000 

F CN) Æ=INT(F (N)#1000°.005)/1000 

YY (N)=INT CYY (ND #1000+. 005) /1000 
FOR I= 1 TON 

HCID=H(I)+H(CI-1) 

IF I=i THEN S=F1i(1)xE1i(1) 
IFI=*?THENS (I) =F1(I)#(HCI-1)+E1(1)) 
S(I)=S(1)+S(I-1) 

GU(I)=S(I1)/F(I) 

NEXT I 

GG=GU (N) +S/F (N) 

GO=H (N) -GG 

GG=INT (6G*1000+.005) /1000 
FRINT:FRINT 

WW=I I (N) /GG 

W2=II (N)/60 

WW=INT (WWk1000+.005) /1000 
WP=INT (W2+1000+. 005) /1000 

PRINT: PRINT. 

FRINTSFC(9) "x CARACTERISTIQUES *" 
FRINTSPE (QD " 
PRINT 2FRINT : PRINT : FRINT 
FRINTSFC (6) "SECTION TOTALE="F (N) 
PRINTEPC C6) ee L 


2997 
:000 
7150 
3160 
3250 
3275 
3277 
3280 
3290 
3295 
25:00 
5320 
3330 
3350 
3370 
32375 
3390 
3395 
3397 
3400 
3405 
3410 


34207 


5000 


PRINT : PRINT 
PRINTSFC(6)'"INERTIE TOT.Ix="II (N) 


PRINTSPE (6) "0 


PRINT :  FRINT 
FRINTSFC(6)"INERTIE TOT.Iy="YY(N) 


PRINTSPE (6) 


PRINT 3: PRINT 
PRINTSPC (6) "MODULE I/VxINF="WW 


PRINTSPE (6) 


PRINT : PRINT 
FRINTSFC (6) "MODULE I/vxSUF="W2 


PRINTSPE (6) 


PRINT : PRINT : WAIT 400 
PRINTSFPC(6) "RAY'N GIRAT.ix="RX 


PRINTSPC (6) 


PRINT : PRINT 
FRINTSPC(6) "RAYON GIRAT.iy="RY 


PRINTSPC (6) "= — 


PRINT 3: PRINT 
FRINTSPFC(6) "DISTANCE C.D.6="66G 


PRINTSPC (6) 


FRINT:FRINT:FRINT 
PRINTSPC(9) "xxx FOI ON #36! 
END 


CALCUL DES PROFILS MÉTALLIQUES COMPOSÉS 


Ce programme permet de calculer quatre types de profils 
composés. Les profils composés 1, 2 et 3 sont utilisés généralement 
pour les sections des poteaux. Le profil 4 représente les poutres 
reconstituées soudées (PRS). 








EXEMPLES 
TYPE 1 TYPE 2 
HEA 300 
IPE 600 IPE 600 
TYPE.3 








TYPE 4 30 l 


N 
60 





2 NOTA 


Dimensions en cm. 
40 








He DONNE 





FT CINT AL 





ex CARACTERTETIQUES dax 









VY 
SCC 


ECTION TOTALE 
ATIE TOT, YY 
INERTIE TT, XX 
MODULE Lévy im 
MODULE.  LZ 
MODULE 













Lévy inf 6: 7 
SUp Es, 716 










FROFIL COMFOSE TYPE jé 


FROFIL RTE 





KkkKX DONNEES #44 kr DONNEES #33 


PROFIL VERTICAL (1) PROFIL F.R.S. 

HAUTEUR FROFIL =6@ 
EFAISSEUR ÊME = À 
LARGEUR SEM, SURF, K 
EFAISSEUR SEM, SUP, 
LARGEUR SEM, INF =40 
EFAISSEUR SEM,INF #2 


HAUTEUR 
INERTIE IX 
INERTIE IY 
SECTION 
LARGEUR SEMELE 
INERTIE TORSION 
FROFIL HOR.A DROITE 
EE ee vues ES vie D es #kx CORACTERISTIQUES +kxx 
LONGLIEUR = 
EFAISSEUR AME SECTION TOTALE #80 
LARGEUR SEMELLE Œ INERTIE TOT,. YY 174582, 
EFAISSEUR SEMELLE «= € INERTIE TOT. XX =168104. 405 
FROFIL HORIZ. À GAUCHE MODULE  I/vy inf=@72. 666 
nt ee re ee en ec D MODULE I/vy supr1l165,.555 
LONGUEUR æ 5 MODULE  I/vx 25479,5750 
EFAISSEUR ME = © MODULE  T/vx super 7is, 188 
LARGEUR SEMELLE = 0 RAYON GIR.iy =7, 895 
ÉFAISSEUR SEMELLE = ?0 RAYON GIR. is 
INERTIE TORSION 

















#kx CARACTERISTIQUES 4% 


SECTION TOTALE  #%84 BENIN AE FIN MEHR AH 
INERTIE TOT. YY 51131.231 

INERTIE TOT, XX =97945 

MODULE  I/vy inf=5:92.1275 

MODULE  I/vy gup= 4,01 

MODUL.E T/vx 2 È FH 

RAYON GIR.iy 
RAYON GIR. is 
INERTIE TORSION 
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REM FROG. "FROFCOMFX" ER0O/8/83 
REM 4 TYPES DE FROFILS COMFOSES 
REM UNITES  HOMOGENES 

180 CLS :PFRINT 

20 PRINT :GOT0O 150 

40 FRINT'ERREUR !" 

45 FRINT 3: PRINT: 

30 WAIT 2:00 :GOT0 150 

70 CLS =: PRINT: PRINT 

150 FRINTSFC(6)"FROFIL COMFOSE :" 
170 FRINT:FRINT :FRINT 

190 FRINTSPFC(6)"TYFPE 1 ", "I!-!" 
200 FRINT:FRINT 

220 FRINTSPC(6)"TYFE 2 ", "I-'" 
240 FRINT:PRINT 

260 FRINTSPFC(G)"TYFE 3", Mi-j-i" 
280 FRINT:PFRINT 

300 FRINTSFC(G)"TYPE 4 ", "FR S" 
320 FRINT:FRINT 

340 INFUT FY : FRINT 

360 FRINT:FY=INT(FY) 

400 IF FY:4 OR FY£1 THEN 40 


NATH) 


410 FRINTSFC(6)"FROFIL COMFOSE TYPE "PY 


415 PRINT +: PRINT 
420 IF FY=1 OR FY=2 OR FY=Z THEN 500 
450 IF FY=4 THEN :000 


9500 FRINT:FRINT:FRINT'FROFIL (1) vertical" 


005 FRINT 2:  FRINT 

JE PFRINT:FRINT:FRINT"'Ix"s: INPUT Ii 

540 FPRINT:FRINTEPRINT"'Iy"ss: INFUT IA 

960 FRINT:FRINT:FRINT'SECTION": 

965 INFUT AA 3 PRINT : FRINT 

90 FRINT "HAUTEUR " :; 

600@ INFUT H1°3 PRINT : FRINT 

620 FRINT "LARGEUR SEMELLE‘"33:INFUT Ei 


640 FRINT:FRINT:FRINT'INERTIE DE TORSION"; 


&4Z INPUT JÂ : PRINT 3:  FRINT 

645 HBEHI : A1=AA 

647 IQ=I1 : YY=IA 

650 H=B1 : J=Ji 

652 FRINT 3 FRINT 

59 FRINTSFC(6)'"'##æxx DONNEES  #x%3%3%1 
657 FRINT : FRINT : FRINT 

660 FRINTSFC(&) "PROFIL VERTICAL (1) 3" 
6862 FRINT:FRINT 
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&&4 
668 
&72 
674 
877 
680 
6882 
684 
686 
690 
695 
697 
700 
705 
710 
715 
720 
7:50 
740 
750 
770 
775 
860 
880 
882 
884 
886 
890 
895 
900 
905 
907 
910 
912 
914 
916 
920 
950 
1000 
1007: 
1005 
1010 
1015 
1020 
1040 


PRINTSFC (6) "HAUTEUR = "HI 
FRINT:FRINT 

FRINTSFC(6)"INERTIE IX = "Ii 
PRINT: FRINT 

FRINTSFC(6)"INERTIE IY = "IA 
FRINT:FRINT 

FRINTSFEC (6) "SECTION = "AA 
PRINT: FRINT 

FRINTSFC(6) "LARGEUR SEMELLE = "Hi 
FRINT: FRINT 

FRINTSFC(6)"INERTIE TORSION = "Ji 
IF FY=2 OR FY=3 THEN 1000 

FRINT 3:  FRINT 


FRINT'PROFIL 2 horizontal " 

PRINT: PRINT: FRINT"'Ix"s3s: INPUT 12 
FRINT: PRINT: PRINT"IY"5: INFUT IE 
FRINT:FRINT:PFRINT'SECTION" :; 

INPUT A2 3: FRINT 

PRINT 5: PFRINT'HAUTEUR"; 

INFUT HE  : FRINT 

FRINT : FRINT'INERTIE DE TORSION'"; 
PRINT : INFUT J2 

HEH2 5 A=AZ 3: U=H2/2 

IX=I12 : IY=IEH :J0=J2 

PRINT 3 PRINT 3: FRINT 
PRINTSPC (6) "FROFIL HORIZONTAL (2):" 
PRINT : FRINT 


FRINTSFC (6) "LONGUEUR = "HE 
FRINT : FRINT 
FRINTSFC(6)"INERTIE IX = "I? 
PRINT 5: FRINT 
FRINTSFC(&)"INERTIE IY = "IE 
PRINT : FRINT 
PRINTSFC (6) "SECTION = "AE 
PRINT 5: FRINT 


FRINTSFC(6)"INERTIE TORSION "JE 
FRINT:PRINT: GOSUR 5000 
PRINT: FRINT: GOTO 70 

PRINT 3: PRINT 

IFFY=2THENFRINT"'PROFIL (2) horizontal" 
PRINT : PRINT : FRINT : PRINT 
IFFY=STHENFRINT"'PROFIL (2) horiz.(a droite)" 
PRINT:FRINT 3: FRINT 

FRINT "LONGUEUR  "; 

INFUT H4 =: FRINT 
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1860 
1080 
1100 
1120 
1140 
1160 
1170 
1175 
1180 
1190 
1195 
1197 
1200 
1205 
1210 
1215 
1220 
1225 
1270 
1255 
1240 
1245 
1262 
1265 
1275 
1:10 
1:20 
17350 
1:60 
1:90 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1590 
1600 
1640 
1680 
1690 
1700 
1720 
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5 FRINTSFC (6) "LARGEUR SEMELLE 


5 FRINTSFC(6) "EFAISSEUR SEMELLE 


FRINT:FRINT'"'EFAISSEUR DE L'AME";: 

INFUT Ei :FRINT 

FRINT:FRINT'LARGEUR SEMELLE": 

INFUT LR 5 PRINT 
FRINT:FRINT:FRINT'"'EFAISSEUR DE LA SEMELLE": 
INFUT E2 : Li=H4-E® 

A4=LIi*E1+L2+EZ 

FRINT:PFRINT: FRINT 

LeLi : E=Ei : LO=L? 

EU=EZ: H=H4 : A=A4 
IFFY=2THENFRINTSFC (6) "FROFIL HORIZONTAL :" 
IFFY=ZTHENPRINTSFC(6) "FROF.HORIZ.A DROITE :" 
FRINT : FRINT 

FRINTSFC (6) "LONGUEUR = "H4 

FRINT : FRINT 
FRINTSFC (6) "EFAISSEUR AME 
PRINT : FRINT 


"El 


(l 


"Le 
PRINT : PRINT 


"EZ 
FRINT 3: PRINT : FKRINT 
FRINT:FRINT: GOSUE 4000 

IF FY=2 THEN U=6G 

IF FY=2 THEN GOSUE S560G 

IF PY=2 THEN 70@ 

IF FY=3 THEN U=6 

I19=IX :18=IY : J7=J0 

PRINT : PRINT 

FRINT"'PROFIL(Z) horiz. (a gauche) 
FRINT 3: PRINT 

FRINT: FRINT'LONGUEUR  ":; 

INFUT H6 : PRINT : FRINT 
FRINT'EFAISSEUR DE L'AME ": 
INFUT ES :FRINT 
FRINT:FRINT'LARGEUR SEMELLE": 
INFUT L4 : PRINT: FRINT 
FRINT'EFAISSEUR DE LA SEMELLE": 
INPUT E4 2: FRINT:FRINT 
LI=Hé6é-E4  : FRINT: PRINT 
AG=LIXEZ+L4#E4 

LeL3S : E=ES : LO=L4 

EQG=E4: H=Hé : A=ÂG 

FRINT:FRINT: GOSUR 4000 

2=G 3 IR= IX : IK=IY :J8=J0 
H=H4 2: H6=H6 : AG=A6E : À=A4 


1725 FRINTSFC(6) "FROFIL HORIZ.A GAUCHE :" 
1720 PRINT : PRINT 
1735 FRINTSFC (6) "LONGUEUR = "Hé 
1740 FRINT : FRINT 


1750 FRINTSPC (6) "EFAISSEUR AME = "ES 
1755 FRINT : PRINT 
1765 FRINTSFC (6) "LARGEUR SEMELLE = "L4 
1770 FRINT : PRINT 
1780 FRINTSFPC (6) "EFAISSEUR SEMELLE = "E4 


179Q PRINT : FRINT 

1800 H=H4 :H6G=H6é : AG=AG : A=A4 

1880 IF FY=S THEN GOSUE 5000 

1900 IF FY=Z3 THEN 70 

3000 FRINT:FRINT:FRINT 

3020 FRINT'PROFIL F RS ":FRINT 

3070 FRINT:FRINT 

3040 INFUT "HAUTEUR TOTALE"; HN 

3060 FRINT: PRINT 

3080 INFUT "EFAISSEUR DE L'AMEM"S;EA 

3100 FRINT: PRINT 

3120 INFUT "LARGEUR SEMELLE SUF"3LS 
3140 FRINT:FRINT 

3160 INFUT "EFAISSEUR SEMELLE SUF'";ES 
3180 FRINT:FRINT 

2200 INFUT "LARGEUR SEMELLE INF; LI 
2220 PRINT: PRINT 

3240 INFUT "EFAISSEUR SEMELLE INF'";ET 
3260 FRINT:FRINT 

F267 FRINTSFC (6) "#kxkxx DONNEES ####3%% 1 
2263 PRINT : PRINT 

3265 FRINTSFC (6) "FROFIL P.R.S, " 
3270 FRINT : FRINT 

32280 FRINTSFC(6) "HAUTEUR PROFIL 
3290 PRINT : FRINT 

3:00 PRINTSFC (6) "EFAISSEUR AME = "EA 
FRINT : PRINT 

» FRINTSFC (6) "LARGEUR SEM.SUP= "LS 
FRINT : FRINT 

9 FRINTSFC(6) "EFAISSEUR SEM.SUF= "ES 
PRINT : FRINT 

FRINTSFC (6) "LARGEUR SEM.INF= "LI 
D FRINT 3: FRINT 

FRINTSFC(6) "EFAISSEUR SEM.INF= "ET 
AMELS*ES : AN=LI%EI 

AF= (HN-ES-ET) *EA 


LL HN 





3:80 
3590 
3395 
3400 
3410 
5420 
7460 
74680 
2500 


“rer 
td a 


2540 
3560 
2590 
3620 
3640 
680 
37Q0 


ERA A : 


2790 
800 
3020 
2640 
860 
9680 
32890 
3900 
3920 
3940 
3940 
3965 
5980 
4000 
48050 
4070@ 
4100 
4120 
4200 
5000 
3050 
055 
5070 
2100 
150 
5200 
J230 


2:00 
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GS<ANKEI /E 

Gé=AF x (CHN-ES-ET) /2+ET) 
G4=AMXx (HN-ES/2) 
CZ=(LSkES"E4+LIKkET"T) /12 

GN= (G4+65+66) / CAM+AN+AF) 

CW= CHN-ES-ET)TI#EA/ 1 

CS=AMX CHN-ES/2-GN) TE 

CIFANX (GN-ET/2) 72 

CA=AF+x (CHN-ES-ET) /2-GN+ET) TE 
CX=CZ+CHW+CS+CI+CA 

CY= (LSTEREGS+LISIKET) /17 
CY=CY+EATTx CHN-ES-ET) /12 
MI=CX/GN 5 MS=CX/ CHN-GN) 
MY=RxCY/LS 3: MM=ZXxCY/LI 
AY=AM+AN+AF 

RWEGQR (CX/AY) 

RTEÆSQR (CY/AY) 
TS=(LSkESTI+LIKEI TT) JS 
TS=TS+(HN-ES-ET) #*EA%T/E 
CEX=INT(CX*1000+. 005) /1000 
CY=INT(CY*1000+.Q005) /1000 
MI=INT(MI*x1000+.005)/1000 
MS=INT (MSx1000+.005)/1000 
MMEINT (MMx1000+.005) /1000 
MY=INT (MY#1000+.005)/1000 
AY=INT(AY*#1000+.005) /1000 
RWEINT (RWx1000+. 205) /1000 
RT=INT(RKT#1000+.005) /1000 
TS=INT(TS#1000+. 2005) /10080 
FRINT:FRINT: PRINT: GOSUR 5600 
FRINT:FRINT: GOTO 70 

GE (LKkE#H/2+LOKkE0T"E:/2) /A 

DRz (L/2-G-E0) 72 

DV=LO+ED*x (G-EQ/2) 2 
IX=(LTIKE+LOKEQT"E) /12+LKkEXDR+DV 
IV=(LOTSkEQ+LHE"S) /12 

JO= (LE I+LOkED" TS) /5 % RETURN 
AB=A1+A+A6 

GO= (HkA1+AKU+A6X (Hé+H-GE) ) /AD 
ZU=H-60@ 

IF FY&5 AND GQ:H THEN ZU=H6-G2 
YT=YY+ALKZUTE+IX+A% (U-G0) "2 
YT=YT+A6* (H6+H-G2-60) "2+19 
XT=IO+IY+I8 

Wi=YT/6GQ 

We=YT/(H+EB/2-60) 


229 


92950 
5400 
99500 
o910 
D920 
99.30 
o940 
2945 
Drtetel 
Su060 
Ho70 
Do970 
DOS 
5600 
9650 
26395 
660 
665 
1680 
700 
2730 
9770 
2790 
6020 
58:50 
6840 
2860 
5870 
25890 
2895 
2897 
900 
9907 
2905 
2906 
2907 
2909 
9910 
D912 
9915 
99720 
0945 
9930 
9999 


765 


IF PFY=3 THEN 
WX=2#kXT/HQ 


RY=SOR (YT/AB) 
RX=SOR(XT/AB) 


W2=YT/(H+H6-60) 


YT=INT(YVT#1000+.005)/1000 
XT=INT(XT#1000+.005) /1000 
WIi=INT'Wix1000+.005)/1008 
W2=INT (W2*1000+.005)/1000 
WX=INT(WX*1000+.005)/1000 


JO=J+J0+J7 


RY=INT(RY#1000+.005) /1000 
RX=INT(RX#1000+.005)/1000 

JO=INT (JO0*1000+.005)/1000 

FRINT: PRINT: FRINT 

FRINTSFC (8) "### CARACTERISTIQUES xxx" 
FRINT:FRINT:FRINT 5: FRINT 


IF FY=4 THEN 
FRINTSFC (4) " 
FRINTSFC(4)" 
IF FY=4 THEN 
FRINTSPE (4) " 
FRINTSFC (4) " 
IF FY=4 THEN 
FRINTSFC (4) " 
FRINTSFC (4) " 
IF FY=4 THEN 
FRINTSFC (4) " 
FRINTSFC (4) " 
IF FY=4 THEN 
FRINTSFC(4)" 
FRINTSFC (4) " 
IF FY=4 THEN 
FRINTSFC(4)" 
FRINTSFC(4)" 
GOTO 5909 

FRINTSFC (4) " 
GOTO 591% 


AD=AY 
SECTION TOTALE ="AQ 


YT=CY 
INERTIE TOT. YY ="YT 


XT=CX 
INERTIE TOT,. XX ="XT 


Wi=MM 
MODULE  I/vy inf="Wi 


WXx=MI 


IFFY=4THENFRINTSFC(4)" MODULE I/vx sup="MS 


IF FY=4 THEN 
IF FY+4 THEN 
FRINTSFC (4) " 
FRINTSFC(4)" 
IF FY=4 THEN 
FRINTSFC (4) " 
FRINTSFC (4) " 
IF FY=4 THEN 


1906 
RY=RT 
RAYON GIR.iy =URY 


RX=KRW 
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5970 
5972 
975 
9977 
1978 
980 
23984 
1986 
3990 
3995 
6000 
6500 
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FRINTSFC(4)" INERTIE TORSION ="JQ 
PRINTSPC ("M à 
PRINT 53 PRINT Oz:  FRINT 

FRINT'AUTRE FROFIL COMFOSE OUI=1 NON =@"; 
FRINT 3  FRINT 

INFUT FW 53 FW=INT(FW) 

IF FW1 OK FW:O THEN 5977 

IF FW=Q THEN 5995 

RETURN 

PRINT: FRINT: FRINT:FRINT 

FRINTSFE (8) " k#xxx x FIN REX! 

END 


CALCUL DES SECTIONS A INERTIE VARIABLE 


Dans ce programme sont envisagés deux types de sections : 
rectangulaire et en double té. 


Chaque section est calculée suivant trois formes d’éléments : 
forme trapézoïdale, forme parabolique, et un élément formé par 
deux trapèzes symétriques. On peut calculer l’inertie équivalente, 
le rayon de giration correspondant et le module d'inertie. 


EXEMPLES INERTIE VARIABLE 






FORME TRAFEZOIDALE 


Hé DONNEES HF 
SECTION DOUBLE TE 

INERTIE MAX = 65000 

INERTIE MIN = 15000 

SECTION MAX = 150 

HAUTEUR MAX =90 

CHEN MEME EE EH DE JE EE HE EE 

de Me Je de 6e FE GSUILT AT Se ee de 4e dede ee 
INERTIE EQUIVALENTE IX = 13923.076 


RAYON DE GIRATION ix = 9,654 


Hi 


MéiX I MUM L/VH 1444, 444 


He JE JE M JE MMM JE MMM JE ME EM 36e ME EME DE EE NE JE 
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INERTIE VARIABLE 


DEUX TRAFEZES 


FKEHX DONNEES #4 
SECTION DOUBLE TE 
INERTIE MAX = &S50@0 
INERTIE MIN # 15000 
SECTION MAX = 150 
HALITEUR MAX =90 

MMM DE MED MONE DEEE ED HE DEEE Ke 


HILL EX RESULTATS Rex x 


INERTIE EQUIVALENTE IX = 42708.492Z 


RAYON DE GIFATION 1x = 16.872 


Él 


MAXIMUM T/Vx 1444, 444 


Xe ee 6 JE EME MM MEME JE NE MEME M JE EE JE JE EE 


INERTIE VARIABLE 


FORME. FARABOLIQUE 


EX DONNEES LRRE ES 
SECTION DOUBLE TE 
INERTIE MAX = 652008 
INERTIE MIN = 15000 
SECTION MAX # 150 
HAUTEUR MAX =90 

MH HE DE DE DEEE RE HE MEN 


JE EE Eee RESULTAT See 


INERTIE EQUIVALENTE IX 1827,746 


RAYON DE GIRATION ix = 18.588 
M£ XI MUM TI/Vx = 1444,444 


4e Xe HE HE EME ME DER MH JE HE DEN ME EEE JE ONE 
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2 CLS 2: FRINT:FRINT 

3 GOTO *0Q 

4 FRINT'VALABLE FOUR RAF,INER, Imin/Tmax 0. @4" 
 NAIT 400 2  FRINT 5:  FKRINT 

7 KREM SECTIONS RECTANGULAIRES ET DOUBLE TE 
8 REM FROGRAMME  #INVARX 

14 REM INERTIE VARIABLE * ERQ/9/6RX # 
11 REM UNITES HOMOGENES 

GOT 2@ 

CINT xxx ERREUR 1 desx LT, QU 2" 
lé FRINT 25 FRINT : WAIT 15@ 

Û 5 PRINT: FRINT 5  FRINT 
FRINTSFE (6) "FORME DE L'ELEMENT 3" 
ES PRINT 4 PRINT 5  FRINT 

4@ FANS CCé)UTRAFEZE (A) 

HS F 5 FRINT 

F NTSFC CS) "DEUX TRAFEZES GYM, (XD 
FRTNT 4 FRINT 
FRINTSFE C&) "FARAROLIQUE CI) 

ï PRINT, #4 FRINT 

INEUT OTY 

7 sn #5. FRINT 

Al SINTITYIETYE "ES CFA 














CE 
1A@4 I J 

1447 PRINTSFC (6) "SECTION DOUBLE T (2)" 
1GGR FRINT:s FRINT 

1QR9 REM CALCUL SECT, DOUBLE TE 

LAL@ INFUT WW 

LES Wabe TNT CHU WWmARE (WI 

1@1S (INT %FRINT 

A2 0 "WW OR WWET THEN 1@R0" 

 WWæl THEN L1@@ 

INFUT UINERTIE MAX" TM 

FRINT 
INEUT 
FRINT 
INFUT OUT ER 
1m61 FFRINT PRINT. 
1RSE IF MTSETM. THEN PRINT'ERREUR / REFETER" 
LB IF MTETM. THEN 1@SS 

1@éé INFUT "HAUTEUR MAX, "32H 

1@7@ GOT 1270 

1084 REM CALCUL SECT, RECTANGULAIRE 

118 FRINT'DIMENSIONS SECTION MAX:EH,H" 


















MAX"3S 


MINI!" MT 
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1105 
1120 
1125 
1140 
1160 
11680 
1190 
1200 
1220 
1240 
1250 
1255 
1268 
1278 
1280 
1:00 
1520 
1500 
:G0Q 








3420 
425 
450 
460 
3470 
3490 
2500 


FSS0 











FRINT:FRINT 
INFUT "EU E 
FRINT 2 FRINT 
INEUT "Hs H 
TLEERHTE/ AE 
SeR#H 
FRINT 2: FRINT 
FRINT'HAUTEUR SECTION MINI. H'": 
FRINT: FRINT 
INFUT HI 
IF HISH THEN FRINT'ERREUR / REFETER" 
IF HI5:H THEN 1240 
eee, 12 
IF WW=S THEN TI1zTM 3 I2eMT 
IF TYel THEN Cr. 24, 8x (TI2/11) "8/5 
IF TY=Z THEN , ts GOKSCR (TR /T 1) 
IF TY: THEN Ce, 61+, EG#GORCIZ/I 1) 
REM VALEURS AKRONDIES 
LX&INT (CAT IKIQGQ+., GE) / 1000 
SeINT(S+r1000+., 05) /17Q0 
RX=SORCIX/5) 
RX=INT (RX#1000@+. 05) /1000 
SILEINT(BI*HIkI1A00+. 05) /1000@ 
IF WWE THEN HeZH/® 
WX=T1/H 
WX= TNT CWX+#1000+, 05) /1000 
IF WW=Z THEN TOR 
WZ=TT/HI 
WZ=INT(WZ+1000+, 05) /17000% 
FRINT 3 FRINT 
IF WWE THEN 408 
FRINT'OALEUL DE L'INERTIE YY SECT.X" 
FRINT 
INFUT HAUTEUR Hits X 
IF X£HI THEN X=HI 
IVe XHHTE/17 
LYEINT CITY LAGA+, A5) / 1008 
FRINT 2 FRINT 
KEM ST RAFF, Imin/Imax<:.0@4 
REM VOIR 5450 
IF SQR(IR/11)2,.2 THEN 4 
RKEM EDITION 
FRINTSFC (8) xxx RESULTATS xxx" 
FEINT : FRINT: FRINT 
FRINT'INERTIE EQUIVALENTE IX="IX 
FRINT 23 PRINT: FRINT 
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Ra de 1 4 
te) 7 0 


90 
Z6R0 
F0 
TES 
3650 
3668 
700 
3750 
3770 
Z264Q 
4008 
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FRINT'RAYON DE GIRATION i 
FRINT 3 FRINT: FRINT 

FRINT MAXIMUM I/v 
PRINT 2: FRINT: FRINT 

IF WW=Z THEN 5800 
FRINTYMINIMUM I/v 
FRINT 2: PRINT: FRINT 

IF X:0Q “HENFRINT'INERTIE IY 
IF X:0 AND X=H1 THEN FRINT" 
FRINT: FRINT 2 FRINT: FRINT 
FRINTSFE (8) "ækaxex FIN #336x 
END 


H=UKRX 


x='"WXx 


x="WZ 


(SECTION X)="IY 
(FOUR X =Hmin) 


+k+x' 


CALCUL DES PROFILS MÉTALLIQUES DE SECTIONS |! OU H 
RENFORCÉS PAR DEUX CORNIÈRES 


Ces profils sont utilisés pour les sections des poutres de roule- 
ment métalliques. 


Le programme permet de calculer les caractéristiques géomé- 
triques nécessaires au dimensionnement des poutres. Le tableau ci- 
dessous aide à choisir le profil des cornières (notées de 1 à 7) et de 
répondre à la question posée par l’ordinateur. 









Cornières 
à ailes 
égales 


50X 50 60X60 70X70 80X80 90X90 100X100 120% 120 
5 6 7 8 9 10 12 











Cornières 
à ailes 
inégales 


70X 50 80X50 80X60 90X 70 100X80 120X80  120X 80 
6 7 7 8 9 10 12 





EXEMPLE 


Dir Eu D: 90 x 70 x 8 


IPE 500 
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HkkHkEEEX DONNEES #44 eee 


HAUTEUR FROFIL (em) = 50 
SECTION FROFIL (em) = 116 
INERTIE IX (cm4) = 48200 
INERTIE IY (cm4)= 2142 
LARG.SEM.FROFIL (cm) = 20 
EF.  SEM.FROFIL(em) = 1.6 
EF.  AME PROFIL(em) = 1.02 


CORNIERE TYFE 2 
CORNIERE FOSITION 1 


CORNIERE No 4 


HR HE HE HE DEEE DEEE DE DE DEEE DE DE DEEE DE DEEE DEEE EX 


CARACTERISTIQUES DU FROFIL COMFOSE 
HD HE DE DE HE HE HD DE EH DEDE DE DEHE DE DE DE DEEE DÉDE DE DE DE DE DEEE NE 


1x Ty SECTION 
59166.177 8755.88? 140.46 
I/vx SUF I/vx INF 


1x 


20.524 


20:7.517 


I/vy SUF 
460.876 
iy 


7.89 


D 


2822.59 


I/vy INF 
875.588 
Jtors 


91.554 


HE DE DE HD HD DE EDEN DE DE DE DEEE DEEE 


LD 


CA 
) 


20 
27 
40 
50 
80 
65 
70 
75 
80 
11 
12 
16 
17 
17 
17 
17 
18 
18 
18 
19 
20 
21 


me 
Eee) 


26 
27 
26 
30 
Ra! 
1 
25 
40 
40 
40 
40 


REM FROGRAMME "FROFCOMFEL ER0O/8/87% 
REM *x% FROFIL TYFE I OÙ H + 2L *+% 
REM FROFIL FOUTRE ROUL.METALLIQUE 
IT=IZ=HSR=ER=EA=IY=IX=AF=RX=0 
SL=DX=DY=II=L=IFESAT=EC=LX=0 
JO=J1=J2=J3=WI=W2=WS=WI=R"=0Q 

GOTO 57 :FRINT 

FRINT'ERREUR CORNIERE HORS LISTE" 
GOQTO 180 :PRINT 

CLS : FRINT: FRINT 

INFUT "HAUTEUR FROFIL (cm)'"sH 

FRINT 3: FRINT 

INPUT "SECTION DU FROFIL (cem2)";A4F 
FRINT :FRINT 

FRINT'MOMENT D'INERTIE Ix & Iy FROFIL(com4)"; 
PRINT:FRINT 

INPUT IX : PRINT =: INPUT IV :FRINT 
Q FRINT'LARGEUR % EFAISSEUR SEM. FROFIL (cem)" 
Q FRINT: INFUTE: FRINT: INFUTER: FRINT 
Q INFUT "EFAISSEUR AME FROFIL (cm)"3;EA 
Q FRINT:FRINT 
9 SL=EC=II=IFE=RXE=RYE=WI=WE=WS=Q 
7 J@Q=J1=JR=JTFAT=IZ=ITEWI=Q 
8 S2=FR2=D1=D2=LI1=L2=11=12=0 
Q FRINT'TYFE CORNIERE :":FRINT 
2 FRINT:FRINT'AILES EGALES = 1" 
4 FRINT:FRINT"'AILES INEGALES = 2" 
Q FRINT:INFUT CR 3: FRINT 
9 IF CR£1 OR CR *2 THEN 170 
Q IF CR = 1 THEN 250 
Q IF CK = 2 THEN 400 
@ INFUT "FROFIL CORNIERE (1 À 7)"; NK 
Q FRINT : FRINT 
A IF NR=ï1 OR NK #=7 THEN 300 
Q IF NK #1 OR NK :7 THEN 20 
à PRINT:FRINT: GOSUR 500 
@ DX=D@ : II=IL : L=LO :SL=S1 
o LX=L@ : DY=DQ : IKH=IL:EC=Ei 
Q FRINT:FRINT: GOSUR 2000 


20 FRINT:FRINT: GOTO :950 


O FRINT:FRINT:FRINT 
Q FRINT"'FOSITION CORNIERE :" 


2 FRINT : FRINT 
9 FRINT'GRANDE AILE HORIZONTALE = 1" 
7 FRINT:FRINT'GRANDE AILE VERTICALE = 2" 


410 
415 
420 
470 
440 
445 
450 
470 
475 
477 
480 
484 
486 
490 
495 
90Q 
210 
DZ 
40 
900 
560 
270 
973 
395 
997 
610 
615 
625 
627 
35 
6237 
645 
647 
655 
657 
665 
668 
1000 
1500 
1510 
1540 
1590 
1600 
1620 
1640 
1660 
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FRINT: INFUT NA =: PRINT: FRINT 
IF NA <1 OK NA 2 THEN 400 
FRINT'FROFIL CORNIERE (i À 7 ) 
FRINT: INFUT NZ 

IF NZ =*1 OR NZ£=7 THEN 450 
IF NZ <1 OR NZ *7 THEN‘420 
:FRINT:FRINT: GOSUR 1500 


IF NA = 1 THEN DX=Di: DY=D2: L=Li 
IF NA = 1 THEN II=I12: Ik=li: SL=S2 
IF NA = 1 THEN EC=EZ: LX=L2 
IF NA = % THEN DY=Di: DX=D2: LeL2 
IF NA = 2 THEN LX=Li1: II=1l1: IF=12 
IF NA = 2 THEN SL=S2: EC=E2 


FRINT:FRINT: GOSUER 2000 
FRINT:PRINT: GOTO 27950 
FRINT:FRINT:FRINT 

REM LISTE CORNIERES AILES EGALES 
IF NK=l THEN 597 

IF NR=2 THEN ‘15 

IF NR=3 THEN 627 

IF NR=4 THEN ‘257 

IF NR=S THEN 647 

IF NR=6 THEN ‘57 

IF NR=7 THEN 668 
S1=4.8:E1=.S5:D0=1.4:L0=5S:1L=10.96 
GOTO 1000 
Si=6.91:E1=.6:D0=1.69:L0=6:1L=22.79 
GOTO 1000 
S1=9.4:E1=.7:D0=1.97:L@=7: L=42.5 
GOTO 1000 


S1=9.6:E1=.8:D0=2.26:L@=8:IL=72.25 
GOTO 1000 
S1=15.S2:E1=.9:D0=2.54:LO=9:1L=115.8 
GOTO 1000 
S1=19.15:E1=1: DO0=2.82:L0=10:1IL=176.7 
GOTO 1000 
S1=27.54:E1=1.2:D0=3.4:L0=12:1L=567.7 
: RETURN 

PRINT: PRINT: PRINT 

REM LISTE CORNIERES AILES INEGALES 
IF NZ = 1 THEN 1710 

IF NZ = 2 THEN 1750 

IF NZ = Z THEN 1750 

IF NZ = 4 THEN 1780 

IF NZ = S THEN 1810 

IF NZ = 6 THEN 1840 


1680 
1710 
1715 
1725 
17:30 
1735 
1740 
1750 
1755 
1770 
1780 
1784 
1790 
1810 
1815 
18:0 
1840 
1845 
1860 
1870 
1880 
1900 
2000 
2020 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2170 
2140 
2150 
2160 
2170 
2200 
2220 
2240 
2260 
2280 
2:00 


2302 


2305 


RE NZ = 7 THEN 1870 
=6.88:E2=.6:D1=2,.24:D2=1.25 
L?=S 5 11=33.8: 12=14.35: Li=7 


GOTO 1900 
S2=8.6S:E2=.7:D1=2.69:D2=1.22 
Le2=S: 11=58.%: 12=16.7: Li=8 
GOTO 1900 
S2=9,28:E2=.7:D1=2.51:D2=1.52 
L2=6: 11=59: 12=28.4: L1=8 
GOTO 1900 
S2=17,.25:E2=.8:Di1=2.8:D2=1.81 
Li=9: L2=7: 11=97,5: 12=51.4 


a 1900 
15.S:E2=.9:D1=37. 05: Dern 

Li= =10; L2=8: 11-150: 12=86 
GOTO 1900 
2=19.15E2=1:D1=3.92:D2=1.95 
Li=12: L2=8: 11=276: 12="8.1 
GOTO 1900 
S2=22,.7:E2=1.2:Di=4:D2=2.05 
Li=12: L2=8: I1=723%: 12=114 
RETURN 

PRINT Os:  FRINT : PRINT 
FRINTSPC (9) "ke DONNEES #66! 
PRINTSPE (QD * 
PRINT 3 FRINT :  FRINT 


FRINTSFC(9 )'"HAUTEUR FROFIL (cm) = "H 
FRINT 5:  FRINT 
PRINTSFC(9 )"SECTION PROFIL (cm) = "AF 
PRINT 3:  FRINT 
FRINTSFC(9 )'"INERTIE IX (oem4)= "IX 
FRINT :  FRINT 
PRINTSFC(9 )D'"INERTIE IY (om4)= "IY 
PRINT : PRINT 
FRINTSPC(9 )"LARG.SEM.FROFIL (em) = "HE 
PRINT :  FRINT 
FRINTSFC(9 )"EP. SEM.FROFIL(com) = "EH 
PRINT : PRINT 
PRINTS'C(9 )"EF. AME FROFIL(cm) = "EA 


PRINT 3: PRINT : PRINT 
IFCR=1THENFRINTSFC(9) "CORNIERE TYFE "CR 
PRINT :  FRINT 
IFCR=1THENPRINTSPC (9) "CORNIERE No "NR 
IFCR=2THENPRINTSFC (9) "CORNIERE TYFE "CR 
PRINT 3:  FRINT 


"IFCR=2THENFRINTSFC (9) "CORNIERE FOSITION "NA 
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FRINT 3: FRINT 

IFCR=ZTHENFRINTSFC(9)'"CORNIERE No "NZ 

FRINT : FRINT 

REM CALCUL DES CARACTERISTIQUES 
GX=(TXxSLXx(H-DY) +40F+*x(H/2))/(2#SL+AF) 
Gi=H-GX-DY 

IT=2#(SLkG1"2+I11) +AF#xC(H/2)-GX)"2+1IX 
AT=2#SL+0F 

1Z=IY+2#SLx(L-DX+R/2) "24241 

RX=SOR(IT/AT) 

RY=SQOR(IZ/AT) 

WiX=I /GX 

WEX=IT/(H-G6X) 

WSY=IZ/(L+H/2) 

WIY=2*+17/K 

JO=L+xEC"S 

Ji=(LX-EC) #ECT3 

J5=(H-2+xER) #EA*25+1.75 

JE=JO0+J1+(2+R+ER"7) #1.725+J5 

JE=J2/5 : FRINT:FRINT 

FRINT 3636263626 3606 EH DE DE DE DE DE DE DE DE DE DEEE DE DE EME DEEE DE EDEN EE 
FRINT :FRINT 

FRINT'VALEURS DES CARACTERISTIQUES DU PROFIL" 
FRINT :FRINT 

FCI NT "26 6262 6H DEDE DEEE DEEE EEE HE DEEE DEEE IEEE! 
FRINT : FRINT 
FRINTSFC(S)"Ix"SFC(12)"Iy"SFC(8) "SECTION" 
FRINT 5: FRINT 

IT-INT(IT#1000+.005)/1000 
IZ=INT(IZ+1000+.005)/1000 

AT=INT(AT*100+ .005) /100 

FRINTSFC(Z)IT SFC(4)IZ SFC(Z) AT 

FRINT :FRINT 

FRINT Me eee om ! 
FRINT : FRINT 

FRINTSFC(1@)"I/vx SUF'SFC(9)"I/vx INF" 

FRINT 

WIiX=INT(WIX#1000+.5)/1200 
WEX=INT(WEX#1000+.5) /1000 

FRINT 3: FRINT 

FRINTSFC(I1GB)WIXSFC(R)W2X 

FRINT.: FRINT 

PRINT M ce oo ose os ee eo " 
PRINT. : FRINT 

FRINTSFC(1G)"I/vy SUF"'SFC(Q)"I/vy INF" 

FRINT : FKRINT 


7780 
3784 
7788 
3790 
3800 
2820 
3840 
2845 
3860 
2870 
2875 
3900 
3910 
3930 
3950 
4000 
400€ 
4010 
4020 
4040 
4050 
4100 
4200 
4:00 


WSY=INT(WSY*1000+.5) /1000 
WIY=INT(WIY#1000+.5)/1000 
FRINTSPC(10) WSYSFC (10) WIY 
FRINT : PRINT 

PRINT Mess en es enende e en  2eses e ee L 
FRINT : PRINT 

FRINTSFC (7) "ix"SFC(7)"iy"SFC(9) "Jtors" 
PRINT 3: FRINT 

ZI=INT (J5+1000+.5)/1000 
RX=INT(RX#1000+.5)/1000 
RY=INT(RY#1000+.5)/1000 
FRINTSFC(6)RXSFC (CT) RYSFC (6) JE 

PRINT 3: FRINT : FRINT 

PRINT MH MERE DE DE DEDE DE DE HE DE DE DEEE DE DE DE RE DEN DEEE DE DE DE DE ME DEEE KE 
PRINT 3 FRINT : FRINT 

FRINT'CHANGEMENT DE CORNIERES OÙUI=1 NON=Q"; 
INPUT M : FRINT 

IF M£5Q THEN 170 

FRINT 3 FRINT 

INFUT "NOUVEAU PROFIL QUI=1 NON=Q"3;CY 

IF CY£*Q THEN 8 

FRINT 3 PRINT : PRINT : FRINT 

FRINTSFC (10) "xækaëx FIN #46!" 

END 
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OUTRES 


POUTRE SUR APPUIS SIMPLES 


Ce programme permet de calculer : 

— les moments fléchissants 

— les efforts tranchants 

— les réactions et les rotations d’appuis 

— les flèches 
pour six cas de charges (voir le listing de 200-260). 

Le cas de charges ponctuelles permet de calculer jusqu’à cinq 
charges simultanément. Les flèches, dans ce cas, sont données en 
chaque 1/5 de la portée. 

La convention de signes est la suivante : 

— charges dirigées vers le bas : signe + 

— couple orienté dans le sens des aiguilles d’une montre : signe — 

— les flèches orientées vers le bas : signe + 


— l’angle de rotation sur appuis, dans le sens des aiguilles d’une 
montre : signe — . 


EXEMPLE 


6,00 





700 daN/m — 6000 daN.m 
AL Je 
8,00 


5,00 2,00 


800 daN/m 


800 
daN 
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CHARGE UNTIF, REFARTIE 


CHARGE UNTF,REF, 
MOMENT MAX, 
EFFORT TK, (fi 
EFFORT TK, CE) 
REACTION  KÂ 
REACTICON KE 
FLECHE MAX, 
ROTATION fà 
ROTAT ICIN E 
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LIN 





“#70 


NT 





a 3 
ER ä 






STE 


P, = 2000 daN 
P2 = 9000 daN 
P3 = 6000 daN 
Pa = 16000 daN 
Ps = 10000 daN 


* AFFUT 





ITES M daN RADIANE 


ATIE XX 
(CM4) 


MODULE YOUNG 
Cd'aN CM) 








LOGIC 





CHARGE UF FART, <900@ 
ABSCISGE tr 
LONGUEUR CHARGE 32 


[Aa 


MOMENT MAX, 

EFFORT TE, CA) 
EFFORT TK, CH) 
REACTION KA 
REACTION RE 
FLECHE MAX. 

ROTATION fà 
ROTATION FE 





au 
109 =90@ 
=1500 


es 1E-@S 


QE 
GE QE 








5 FONCTUELLES 


= <@00 


: : 





= oÿAG 


sn. "4 ES 
FE te se) 








CHARGE 


"= 6AGQ 
ABSCISSE ES = S 


. 
ne, 





CHARGE F4 = 16000 
ABSCISSE 4 = 6 
CHARGE F5 = 


ABSCISGSE S = 


1RR2A 
Tu. 





MOMENT MAX, 

EFFORT TK, (A) 
EFFORT TK, CE 
F TION  K 
TION RE 
TI CIN À 
E 












=, 249% 
=. DE28 
=, 0868 
=. 0562 








if 
ABSC 


=45Q0 


MOMENT MX, guy, 
MOMENT MAX, inf. 
EFFORT. TK, (6) 
EFFORT TK, (5) 750 
RESCTION KR = 750 
REACTION RE m7 5Q 
FLECHE MAX, RE, SE-QS 
ROTATION à #1,9E-Q5 
ROTATION E ml, QE-@S 














CHARGE 


EZQOTDALE 





MOMENT 
ORT TK, (A) 


MAX, 








QT TK, CH) 
ACTION KR 
REACTION KE 
FLECHE MAX, 

ROTATION fi 
ROT AT I CIN E 


CH, TÉTÉSNGULAIRE 


5 CHARGE TRIAN, GYM 


MOMENT MAX, 

EFFORT TR, (A) 
EFFORT TK, (E5 
ÉERCTION Ré 
FERCTION KE 
FLECHE MAX, 

ROTATION fà 
ÉOTATION E: 











TRAPFEZOIDALE 


ca 


ae 


ne 


“5866. 666 





Er EP A 


HORMONE ROME FTN eme onde de 
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INTINERT 
INT: FRET 

















INT 
INT": 














DE LHARC 





LI. REF, 


INT 
CEE, CH FÜONCTUELLES 


44 TRÉFEZOTDALE 


ie TY 
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: WAT 


(8) es CHÉRGE OUR, FART 


! MONTRE 
VOIR 40-808 

j'y INPUT Las 
ei Comé4) "ss INF 


FEINT 
UT 


INTÉMOQBULE DE YOUNG (Ég/cma)" 
"OINE 


(73 CCM SPC 


T 


[n 


. TRISNGUL, SYM," 






C6) M CdaN CM 


REM CHOIX IMFOSE DE 1 À 6 

IF TYré OR TY£1 THEN 200 

IF TYæl THEN 458 

IF TYæeZ THEN 900 

IF OTY&S THEN 1500 

IF TYe4 THEN 2000 

IF TVeSs THEN 4000 

IF TYeé THEN 5008 

FRINT: INFUT CHARGE OU, REF, "3 0 
REM CALCUL DES RÉACTIONS 

REM DES EFF, TRÊN, ET MOMENT MAX, 
FRINT: PRINT: RIiCaL/E 








Be MisGkLTs/6 

REM CALCUL. DE LA FLECHE MAX, 

ÿ REM ET DES ROTATIONS D'AFFUTS 
Fiexetel."4/ CESARENV EXT X) 

Ë ! 7 CARE VET X) 










57 REM F RE FARATION DEE d 
77 REM FOUR LE SOUS-FROG. IMF 
JA REM VOIR 6@0@0 _À FIN 

9 REM MEME E FOUR CHAQUE CUS 
Fey #4 MF EMA 





és RE M CIM RESSTON DE DONNEES 
68 FARINTEF(C (C6) CHARGE UNTF, 
F0 FRINTs FRINTs FRINT 
74 FRINTSFC (CE) CHARGE UNTF,REF, æ°0 
O0 FRINTS PRINT: GOSUE 6440 

947 FRINT: PRINT: GOT 144 

SG FRINTs INPUTOCH,UL RER, FART SG 
Q2A FRINTs PRINT: GOTO 976 

DO FAINTs FRINT 

SG FRINT'ERF F 
S7@ INFUT "ABSCT à 

990 INFLITUL NU UR DE LA © HA 
995 REM TES E VALIDITE DE 
967 REM ARSCISSE AZ ET LONGUEUR 
LG@R IF */E) SL OK LFSL THE 
1@EG IF 2 OK LF<Q THEN SEA 
LG KE A) LL. 

1RéG 








AFTIE" 
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1146 
158 
1160 MEsFe 34 (AB LFYE)+RETE, (EKOF) 
1170 CSel-(AZ4+LF/2) 

1188 #L.% CAZ-LZ) T4 

1:48 eCLPESKCES) PLELREEe 

LSIQ C9sd (LUE ) 
1270 KR9= LP CLP H+EKCS) HAE 

ë : +8) +56) 
(SX CAZ-LF/E) +LF)/ (2xL) 
VE=GPX ( (LAB) ALE/ CHAREVATX AL) 























CE CH LE LES 
INT 
































PRINT: FF 
FRTNT (63 MARSCISS 
FL FRINTS: FRINT 
y FRINTSFE(S) CLONGUEUR CHARGE "LE 
FRINT:FRINT: GOSUE éQ@@ 
FÉINT:FEINT: GOTO 1464 
FETNT TO 154% 
FRINT: FRTINTIERREUR MAX, © CHARGES" 
FRINT:FRINT 
) INFUTONOMERE DE CH, FONCT, "5 M 
1 PRINTSFRINT 3 N& INT CN) 
EM MAXIMUM & CH. FONCTUELLES 
1 OR NES THEN 1520 
1 TO ON sFRINT 
FRINTOCHARGE FT 33 INPUT FCI) 
FRINT: FRINT: GOTO 1718 
FCI * DUC FRINTs FRINT 
(| E "Ts: INFUT CT) 
ACIIEL THEN 16608 
AND ACT)EACT-1) THEN Lé6@ 




















TON 
FCI) # (LA CL) ) /L 
RP CLDeRP CI U4RF CI) :MEXT I 
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THEN 
He 


Di C1) 
EME (10 








D'EREF END + CT) -F EL) CA CE 
| AND ME C1) MI CS) THEN Ge 





THEN 
— 





FR CND fi CT) Ft CL CCE) fi C1 





on) ANDME (2) : MECS) THEN GeMS CZ) ELSE 





1960 IF ME 
G=M3 (5) 





#@ AND ME CI) EME CE) AND ME CI) EME CE) 





1965 THEN 5098 
1980 IF Le ATHENMU CI) &RF CN A CDD PF CL) # CA C4) A C1) 
1990 IF I=4 THEN ME CID) =MW CL) PF (2) # CA (4) A C2) ) -F( 
33 (A (4) A CH) 
1995 IF MSC) AND ME CH ME (4) THEN GeME (CH) 
ELSE Gen 
a LEMS (4) HMANDME C2) ME CE) ANDME (2) ME (4) ANDME ( 
M3 CL) THENGEME € 
10 IFME (4) HBANDME CL) EME C2) ANDME (1) ME CH) ANDME ( 
13 ME (4) THENG=MS (1) 

3 IF Ne4 THEN 209 

ESTHENMY CD) SRF (ND #A CL) FR C1) # CAS) ACL) D) 




























THEN ME CT) eMY CT) Ft CE) 8e CA CE) — 8 CE) D -F 
AAA 
3 (4): 






A CS THEN GEMS (4) ELSE GeMI ee 
5 (43 ANDME CE) : ME CE) ANDME CE) © 


ANDRE CE) EME CS) ANDMZ CE) PTE (4) SNDME CZ) M 
CE) EME CLIT 


SANDME CL) EME CE) SNDMES CL CMS C4) NDMES CL) M 
LE CL EME T 





2490 FRINT x NEXT I 

21BG FÜR Isi TON 

A FitT)=F(I) 

1FQ FAT) LT) +FLCT- 10 

2148 RRÇCI) FI CI) -RECTIENEXT TI 
168 FRINT: FRINT 
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2178 REM CALCUL DES ROTATIONS D'AFFUIS 
3 LRLHE VAT X 

TO N 

CID HA CID & CL CID) CELA CI) ) 
LD) #A CI) # LA CID DK CLHACT)) 














JA CI) #0 

-CWCT) /ÛR  NEXT I 

3 REF CN 

4F CN 5 RARE CN) 

FFC CN 

CS CN) 1 Sex 

6 I CN DE DONNEES 

(9) "CHARGE FONCTUELLES" 

€ Si [ee] } PU en cuve cote ce sn once cms cine ann ut mie come anes ones nue eee cons nus sou UE 

: FRINT 

TN 

CCE) CHARGE FUI" & Map CT) 

3 FRINT: FRINT 

FRINTSPE(G) "ABSCISSE "I" & "y ACT) 

ms FPRINPSRECBN MESSE Sense 1 

FRINT: PRINT 3 NEXT TI 

FRINT: FRINT: GOSUE 6@G@ 

REM CALCUL DES FLECHES 

REM TOUS LES 1/5 DE LA FORTEE 

FRINTSPE (8) "FLECHES 3° 

FRINT 3 FRINT 

Eee, CEE X) 

à FOR XeQ TO L STEF  ,24L 

4404 FOR OT TGS 

LASA DE CT) el CX/L) TE (CL CID) /L) TE 

2464 GNT) = K/L#(LACI))/L#DB (I) KP CL) 

247 0@ JB(I)=1- "6 Ce) LT TS CAUTI LITE 

2484 GDCI)'EARS CCL-X) /Lefû (TT) /LHT8(CT))KF CI) 

SAR IF Xef OR Xl THEN GD (CT) #04 

ë NEXT T 
IF Xe ND K£æf (1) THEN 2770 
IF X=fA(1) ANDXE=û C2) THEN 760 
IF Xe C2) ANDXE=A CE) THEN 2750 
IF Xe C5) ANDX£=fû (4) THEN 27404 
LE C4) ANDXE=A (CS) THEN & 
IF X=tA (5) ANDX£=L THEN #7: 
DT: C1 +GD CE) +GD CE) + GD (4) +GD CE) ) #79 

ï SOTO te 



































 GOTO 27004 

DT (GD 1) +GD CE) +GD CE) +GN (4) +GN CE) ) #29 
GIR 708 

DT CG CL) GT CE) + GN CE) + GN (4) +GN (6) #29 
GOT 84 
DT CGD CL) +GN CE) HGN CE) + EN C4) +GN CE) #79 
eg 

LOL HGN CE) GI CE) + GN CA) +GN CSD KZ 
QT 27640 

LNT CD LARG, GAG ET à 1 A RAA 

Ê X = "KSPC(AH) UF &UDT 

INT 5  NEXT X 

CN) = FF CN) = QD 

ä JE CN) = 0 






















“ 
“ 
“ 
“ 





PRINT: GOTO 140 
INT 






ÿ MONTRE 


Es 4 
dE VALIDITÉ DE L'ARECISSE 
OK 420 THEN ZG@8 
L. LL Os MECLE CL-4) /L 
SL /Ls FRERE 8 T7EeR7 
CL / CEKEYEXTX4L) 
Fa (lLf4) 3 (LE A4) 
FéAxD7 
CLHL./ C&kEVXTX) 
£L-A4)%2/ (LT) 
OV CEKOD- 1) 
SQIVE (Lee AA LE) 









4 
A6 
AGE 
108 
5125 
1H 
150 
















FA 


= 
S 





17 : Se #08 : FRINT 

FRINT 5. FRINT 

REM IMPRESSION DE DONNEES 
FRINTSFE (11)" CQUFLE" 
FRINTSFC(11)" ess 

FRINTs PRINT 

FÉINTSFC CE) "CHARGE COUFLE em CL 
FRINT: FAINT 






43 


4220 
4240 
4240 
4280 


4:Q0 


4720 
4540 
45 


45:60 S 


4400 
4410 
4420 
44.41 
4450 
4460 
44 ÈS 
4460 
4588 
4SS@ 
GR 
er pr 
A4 
068 
3490 
mie@ 








FRINT SFC(S) "ARSCISSE = "A4 
PRINT: FRINT:FRINT: GOGSUE 6008 
FRINT: PRINT: GOTO 140 

FRINT: FRINT 

INPUT "CH. TRAFEZOIDALE "3; QS 

FRINT: GOTO 4100 

FRINT'EREUR DU" 

FRINTSs INFUT "ABSCISSE "3: AS 

REM TEST DE VALIDITÉ DE L'ARSCISSE 
IF ASSL ORAS=SL/E THEN 4460 

MSC CénLUI-ORASTE) / 46 

AR=QS EX (LAS) /E 





A SAR 1  Eés-AR 








QE (LAS) /2 

GS CIVEGKRENY TX) 

FVX COLE de AE) UE 
4 CSHKEVEXTX) 

S9% (LITE AS T EL +AS 
MMS É TA=AR 

Ex A TEE 











FRINT: FARINT 
KREM IMPRESSION DE DONNEES 
CARRE CARE LPAPERETAQRSS 
FRI NT SF G (5) nm, init siens œéeié Stone onis Hé vite Shnte doe Grade D L 
FRINT 3 FRINT 
FRINTSFC (6) "CH, TRAFEZOIDALE e"Gé 
FRINTs PRINT 
FRINTSFC (8) "ARSCISSE ÉTE te) 
FRINT:FRINT: GOSUE 6080 
FRINT:FRINT: GOTO 140 
FRINT: FRINT 
INPUT CHARGE TRIANG, SYM, "Gé 
FRINTs: GZeCéwlL/ 
MésQZxl/é x AE /E 

PS : AFSAE 
KEVaT Xi 
CIGHEY KI X) 
#FRINT 





=AE 
RA=AE ss. RESAF 
TEE 23  FeFé 

S1=67 :  GiecGe 


QG KEM IMPRESSION DE DONNEES 


FRINTSFE (CS) "CH, TÉTANGULAIRE SYM" 


5400 
RE Be 
440 
5445 
5500 
5590 
SPA 
SGA 


6@2@ TÉ 
6@4@ TE 


6088 
TUE TA 
&1R0 
&1:0 


él4 


ë 4 
44% 0 
4 
6500 
&518 
Gale 
ë& 14 
ëa16 
&517 
61e 
SE 9 
0 
8540 
650 
6560 
Gb 
6575 
6577 
6578 
6590 


ECDE 
6595 


6596 


6598 
6680 
6610 
66:20 
660 
6808 
LE aa 
8100 
9@@0 


FF I ù T 5 F: C { 5 i M ST LS die DS décident salée ous cine ces Cane Sie DS oûtes ati anse ous 
PRINT: PRINT 

PRINT SPC(O) "CHARGE TRIAN.SYM ="0é 
PRINT: PRINT 

FRINT: GOSUE 6QGA 

FPRINT:FRINT: GOTO 148 

REM VALEURS ARRONDIES (SORTIES) 

M æINT( Mx1ODD+. AUS) / 1000 

INT CTA%1LOAA+. BAS) / 1000 

5) /1200 








Fr INT (F1 0000+ , OUGS 10000 
GIieINT(S1* 1000 0+, AAGAI) /187AG0 
; CNRS PEUT GAL) 1 ARR 















LTATS 


MOMENT 





PRINTSFC (@ se M 
FRINT: FRINT 

IF cr THEN 65€0 

FRINTSFEC (8) "MOMENT MAX, sup. "M4 
FRINT:FRINT 

FRINTSFC (CS) MOMENT MAX, réf, "Me 
FRINT: FRINT 

FRINTSFE CS) "EFFORT TA, A0 ee UT 
FRINT:FRINT 

FRINTSFC(S) "EFFORT TK, CE) TE 
FRINT:FRINT 3 WAIT TAG 
FRINTSFC (8) "REACTION  FÂ ee URA 
FRICT:FRINT 

FRINTSFC (8) "REACTION FE ee RE 
FRINT:FRINT 

IF TYeE THEN 66A@ 

FRINTSFC(S) "FLECHE MAX, UF 
FRINT 2: FRINT 

LFTY 5 THEN 64880 

FRINT:FRINT 

FRINTSFC (8) "KOTATION ñ ÆNe 
FRINT: FRINT 

FRINTSFEC (6) CKROTATION FE ME 
FRINT 3: FRINT 

FRINT:FARINT: RETURN 

FRINT: FRINT: FRINT 
FRINTSFC (ES) Mamie FTN 4646 tee 4e de 1 
END 
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CONSOLE 


Ce programme calcule les sollicitations et les déformations 
décrites antérieurement pour cinq cas de charges différentes (voir le 
listing de 140-180). Le cas de charges ponctuelles permet de calculer 
jusqu’à dix charges simultanément. 


Il est possible de combiner les cinq cas de charges affectés ou 
non de coefficients de pondération. 


EXEMPLE 


500 daN/m 


6,00 


2,00 
4,00 
| 
| 500 daN/m 


2,00 





P; = 1500 daN 
P = 2000 daN 
P3= 4000 daN 
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4,00 


— 6000 daN.m 


1000 daN 


##4#xx CONSOLE ÉHEHX 


UNITES: M EG RADIANS 


FORTEE INERTIE X-X MODULE YOUNG 
Cm) (cm4) (Eg/cm2) 


6 16270 21800000 


1. CHARGE UNIF. REFARTIE ©. CHARGE U,R, FARTIELLE 


H 


CH,UNIF.REF, = 500 CHU, R.FART = S00 


ARSCISGSE 


l 
3 
j 


MOMENT MAX = -9000 LONGUEUR = £ 


EFF. 


TANCH. MAX = 7000 


REACTION KA = 7000 MOMENT MAX = -8000 


FLECHE MAX (EH) = .023 EFF. TANCH, MAX 


= £000 

ROTATION EN E = G2E-05 REACTION KA = £2000 
FLECHE MAX (CH) = .72E 
ROTATION EN E = SE-05 
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%. CHARGES FONCTUELLES 


AESCISSE 1 
CHARGE F1 


=1 
=1500 


=1.5 


=2000 


ARSCISSE 2 
CHARGE F2 


ARSCISSE 3 =2,5 
CHARGE FI =4000 


= —14500 
7500 
7500 
. B2TZ 


4.S5E-Q05 


MOMENT MAX 

EFF.,. TANCH. MAX 
REACTION KA 
FLECHE MAX (EH) 
ROTATION EN BE 


H OH HN 


4, CHARGE COUFLE 


CQUFLE —42@0 

ARSCISSE #4 

MOMENT MAX = —-6@00 
EFF, TANCH. MAX = @ 
REACTION KA = 0 
FLECHE MAX (EH) = .028 
ROTATION EN E = 7E-Q5 
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CHARGE TRIANG. (A) 


de 


CH, TRIANG, (A4) = 1000 
MOMENT MAX = —6000 
EFF, TANCH. MAX = :000 
REACTION KA = 5000 
FLECHE MAX CH) = ,.@1% 
ROTATION EN EH = 2.6E-@3 


COMBINAISON DE CHARGES 


CAS 1 COEFF. 1,353 
CAS 2 x COEFF. 1,5 
CAS 3 COEFF,. 1,353 


CAS 1 +5 +5 + 0 + 0 


MOMENT TOTAL MAX.= —-41700 
EFF.TR.TOTAL MAX.= 19270 
REACTION TOT. MAX.= 19270 
FLECHE TOTALE MAX,= .0@6 

ROTATION TOT. MAX.= .@174 


ÉRRRUX FO OT N Kxxkxxex 


3 REM FROGRAMME * CONSOLE *x ERO/9/83 * 

7 REM UNITES: Lm),IX(cem4) ,E(FEg/cm2) 

2 REM S CAS DE CHARGES. CAS COUFLE: 

9 REM SIGNE -SENS MONTRE 

1Q CLS : FRINT 

20 FRINT'FORTEE, INERTIE X-X, MODULE YOUNG" 
S PRINT 3 FRINT 

2Q INPUT ML mL 

25 FRINT : FRINT 

48 INPUT "Ix Ccm4)"s IX 

45 FRINT 3: FRINT 

20 INPUT "EYoung (Eg/em2)";EY 

99 FRINT 3: FRINT 

90 FRINTSFC (ZE) "FORTEE'"SPC CI) "INERTIE X-X"SFC (5) " 
MOQULE  YOUNG" 

9Q FRINT 3 FRINT 

100 FRINTSFE (4H) LSFC (7) IXSFC(7)EY: FRINT 


LAS PRINT Men nn 
104 FRINT : FRINT : EY=EY#10%4 
108 IX=IX/10°"8 : GOTO 127 

FRINT:FRINT : FRINT 


INFUT"AUTRES CAS O(1) /N(@)";CH 
FRINT: FRINT 

IF CHE1 OK CHEO THEN 120 

IF CH=Q THEN 5900 

127 FRINT: FRINT 

140 FRINTSFC(8) "CAS DE CHARGES: " 
142 PRINT 3 PRINT  :FRINT 

145 FRINTSFC(8)"1, UNIF.REFARTIE" 
147 PRINT 3 FRINT 

150 FRINTSFC(8)"7Z, UNIF.REP, FARTIELLE" 
182 FRINT 3 FRINT 

155 FRINTSFC(8)"T5, FONCTUELLES" 
157 FRINT :FRINT 

169 FRINTSFE(8)"4, COUFLE" 

165 FRINT :FRINT 

18Q FRINTSFC(8)"S5. TRIANGULAIRE " 
190 FRINT :FRINT 

200 INPUT TY 

220 IF TY:5 OR TY£1 THEN 140 

240 IF TY=i THEN 290 

260 IF TY=Z2 THEN 600 

260 IF TY=Z THEN 860 

280 IF TY=4 THEN 1400 

290 IF TY=5 THEN 1800 

300 PRINT: FRINT 
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310 


CRE 
ES) 


340 
400 
470 
440 
480 
510 


ET 4 ET 
MER) 


Er 
da 


525 
527 
530 
550 
600 
6Z 
695 
615 
617 
620 
640 
647 
&45 
660 
665 
690 
700 
720 
725 
735 
740 
800 
870 
az? 
824 
B26 
828 
870 
840 
&60 
280 
700 
907 
910 
92Q 
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s INPUT "CHARGE UNIF.REFARTIE":0Q 
FRINT 3: Q=0CxL. 

Mi=-QxL/2: Ti=Q: RG=TI 
FIi=QxLE/ (GKkEVXIX) 

R1i=QkL®2/ (6kEY+IX) 

MEMI  :T=TI 

RA=RG :F=F1 

RER : FRINT 

FRINTSFC(8) "CHARGE UNIF.REFARTIE" 
PRINTISELIBI "ES EST eee à 
FRINT: PRINTSFC (8) "CH.UNIF.REF. = " Q/L 
FRINT 3: FRINT 

GOSUR 4600 
FRINT : GOTO 115 

FRINT: PRINT 

INFUT "CHARGE UNIF.FARTIELLE";7ZA 
FRINT : ,GOTO 6% 

FRINT'ERREUR! REVOIR LA LONGUEUR" 
PRINT 3: FRINT 

FRINT"'ARSCISSE" 3 : INFUT AZ° 
PRINT 3: FRINT 

INPUT "LONGUEUR DE LA CHARGE "'3:LA 
FRINT 5: FRINT 

IFCAZ+LA/2)5L OR LASL OK LA/2HAZ THEN 6815 
ZC=E2+LA*xZ7A 

Z2=1C : Ma=-ZCxAZ 
VA=ZC/ (SKkEYXIX) 

VD=LAT2+T4A2T"TE 
VE=VA%X (VD#KL-A2%x CAZTE+LA"2)) 
VN=VAXVUD : MEM2 : T=T2 

RA=TE : F=VH 

REVN 3 FRINT 53  FRINT 
FRINTSFC (8) "CHARGE UNIF.REF. FARTIELLE" 
PRINESREUBY "ESS RSR SE RSS ESss Ses à 
FRINT 3  FRINT 

FRINTSFC(8) "CH.U.REF.PFART =2ZA 
FRINT:FRINTSFC(8) "ARSCISSE = "A2 
PRINT: FHRINTSFC (8) "LONGUEUR = "LA 
FRINT:FRINT: GOSUE 4000 

FRINT :GO0OT0O 115 

GOTO 908 : FRINT 

FRINT'ERKREUR! MAX 18 !" 

FRINT 3: FRINT 

INFUT "NOMBRE DE CHARGES FONCT.";N 
FRINT : NÆINT (N) 

IF N+10 THEN 880 


950 
760 
965 
970 
975 
990 
1000 
1020 
1040 
1060 
1080 
1100 
1110 
1120 
1140 
114% 
1145 
1170 
1200 
1240 
1250 
1260 
1261 
1262 
1267 
1265 
1266 
1268 
1280 
1290 
1400 
1415 
1420 
1470 
1440 
1450 
1460 
1470 
1495 
1550 
1550 
1570 
1600 
1640 
1680 
1700 


FOR I=1 TON 

FRINT : GOTO 970 

FRINT'ERREUR! DEFASSEMENT/ORDRE DE F" 
PRINT 3: PRINT "ARSCISSE "I 
PRINT 3 INFUT ACI) : FRINT 
PRINT "CHARGE  F"I 

FRINT 3 INPUT PCI) : FRINT 

IF A(I)*L THEN 9685 

IF I=%2 AND ACI)£A(CI-1) THEN 9685 
MECI)=-FCI)XxACI) 

ME CT) =ME CI) +MECI-1) 

TECI)=F (I) 

TECI)=TECI)+TECI-1) 
FICI)=PCI)#ACI) TEE CTEL-ACT)) / (6KEY*xIX) 
FECI)=FECI)+FZ(I-1) 

RE CI)=F(I)#ACI)"2/ (RKEY#IX) 
RICI)=RI(I)+RICI-1) : NEXT I 

M=EMI3 CN) 5  T=TIZ CN) 

RA=TI CN) 3 F=FI CN) 

RER CN) 5  PFRINT 
FRINTSFC (8) "CHARGES FONCTUELLES" 
FRINTSPC (8) —— à 
PRINT: PRINT: FOR I=zi TO N 
PRINT:FRINTSFC (8) "AESCISSE "I"="A(I) 
FRINT 3  FRINT 

FRINTSFC (8) "CHARGE  FUI"EMF (TI) 
PRINTSPE ("eee eee nee set me meer : 
NEXT I : FKINT 

FRINT :GOSUE 4000 

FRINT : GOTO 115 

FRINT : GOTQ 1420 : PRINT 
FRINTERREUR! DEFASSEMENT DE L" 
FRINT:INFUT'VALEUR DU COUFLE®";CL 
FRINT : FRINT 

INFUT "ABSCISSE";A4 

FRINT FRINT 

IF A4ï%L THEN 1415 

M4=CL : T4=0 

Z=EY#xIX : K4=CLxA4/7 


IF CL£O THEN R4=-R4 
F4=CL4A4% (L-A4/2) /Z 
IF CL“Q THEN F4=-F4 
M=M4 : T=T4 
RA=T4 : F=F4 


R=K4 3: FRINT 
FRINTSFC"8) "CHARGE  COUFLE" 


S1 


1720 
1722 
1725 
17:50 
1740 
1770 
1808 
1840 
1860 
1900 
1920 
1950 
1990 
2070 
2040 
2060 
EQ80 
2081 
208€ 
2084 
2090 
2100 
4080 
4810 
4B7Q 
4860 








ALES 
4400 
ASS 
3900 
same 
RUE 
RARE 
&m10 
&az0 
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PRINTSPC (B) 4 
PRINT : PRINT 
FPRINTSFC(S)"COUFLE "CL 
FRINT:FRINTSPC (8) "ABSCISSE ="A4 


FRINT : GOSUE 4000 

FRINT : GOTO 115 

FRINT 3 INFUT "CHARGE TRIANG. CAMSTR 
FRINT : PFS=TR#L/2 

TSEPS 5: MS=-FEaL/TI 


ZS=EYXxIX 
FSsPSaL"zs/ (ZS#IS 
RS=PSxL"Ee/ (2Z5#12) 
T=TS : M=MS 

FPS RATS 
RERS 3 PRINT 
FRINTSFC(S) "CHARGE TRIANG. (A)" 
ÉRINISPE (SJ ee S SSSR Eee nest 
FRINT:FRINT 
FRINTSFC(S) "CH, TRIANG, CA) = "TR 
FRINT 3: FRINT 
GOSUE 4000 
FRINT : GOTO 115 
MEINT(M#1000+. 005) /1000 
TEINT(T#10G@+. RQ) / 1000 
RA=Z INT (R#1000+.Q0S) /1000 
NT(F#1000+. 005) /1Q08 
REINT (FR 10000+. 000005) / 10020 
FRINT 3 FRINT 

FRINTSFC(S ) "MOMENT MAX = "M 
FRINT 5 FRINT 

FRINTSFC(S D"EFF. TANC®. MAX 
FRINT 5 FRINT 
FRINTSFC(B) "REACTION KA = "KA 
FRINT 3: FRINT 
FRINTSFC(S )'"FLECHE MAX CH) = "FF 
FRCNT 5 FRINT 
FRINTSFC(S ) "ROTATION EN KE 
FRINT 3: FRINT 
RETURN 
FRINT FRINT 
FRINT 3 FRINT 
INFUT"COMRINAISONS (C1) /N (@) "3 C0 
CO=INT (CC) 
FRINT 3 FRINT 

IFCO:1 OR COQ THEN 608@ 

IF CQO=Q THEN 8@08 





_ 
il 
1 TI 
L 






il 


UT 


ÿ 
il 


1R 


6840 
6842 
6045 
6760 
8180 
6110 
6120 
6140 
6168 
6165 
6175 
6168 
6:00 
6222 
6240 
on 


INFUT NOMBRE DE CAS": NR 

NR= INT CNRO 

FRINT  s FRINT 

FOR J=1 TO NK 

INPUT "No CAS": CS CT) 

PRINT 5 FRINT 

IF CSO:E OR CS(J):1 THEN 6040 
IF CSCDE:1 THEN 6500 
INFUT'COEFF, FONDERATION"3 FT 
PRINT 3 FRINT 

IF CGS(J)el THEN FRINT'CAS "J's "FT 
IF CS(J)el THEN MA=MIKFT 

IF CSCJ)=1 THEN TAZTI#FT 

IF ESCJ)=1 THEN RRERG#FT 

IF CSCJ)æ1 THEN FF=F1 

IF CS(J)=1 THEN Q0=K1 

IF CS(J)EÈE:E THEN 6600 
INFUT'CQEFF. FONDERATION" 3 FT 


go PRINT 5 FRINT 





6E560 
6560 
640% 
6420 
6608 
ëé&EQ 
GS 
(Te D 
6640 
6660 
6680 
6720 
8744 
800 
8910 
8915 
6917 
6920 
8960 
6990 
7088 
7100 
7110 
TATS 
7117 


IF CSCI)=2 THEN FRINT'CAS “J'sx "FT 
IF ESCJ)EZ THEN ME=M24FPT 

IF CS(J)=2 THEN THETE#PT 

IF CS(J)E=Z THEN RS=T2XFT 

IF CSCTEeZ THEN FGFVE 

IF CSCJ)EZ THEN OF=VN 

IF CS(J)£YT THEN 6900 

INFUT'COEFF. FONDERATION"3 FT 

FRINT 3 FRINT 

IF CSC) THEN FRINT'CAS "J"x "PT 
IF CSCJ)=Z THEN MCEÆMSZ CN) #FT 

IF = (J) THEN TCETE (ND FT 












IF ES (J) THEN RWETIS CN) #PT 
IF as €) THEN FH&FE CN) 


IF CS (J) THEN OT&FCE (CN) 

IF CS (I) | THEN 7100 

INFUTPCCOEFF, FONDERATION"S FT 

FRINT 5 FRINT 

IF CS(J)x4 THEN PFRINT'CAS "J'"'x "FT 
IF CS(J)x4 THEN MD=MA4xFT 

IF-CS CI) &4 THEN TD=TA4#PT 

IF CS(J)E4 THEN RZ=TA44FT 

IF CS (Jrr4 THEN FF&F4 : OW=R4 

IF CSCJ)E:S THEN 7200 

INFUT"COEFF. FONDERATION": FT 

FRINT 3 FRINT 

IF CSCI)eS THEN FRINT'CAS "J's "ET 
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FASQ IF CSCI)=S THEN ME=SMSXFT 

7140 IF CS(J)=S THEN TE=TS#PT 

F1SA IF CS(I)eS THEN RYETSKFT 

7170 IF CS(Jies THEN FEeFS 3 O02Z=RS 
FAR MT CT) =MA+ME+MC+MD4+ME 

FE4Q TTC) ETÉHTEHTOCHTDAHTE 

FEA4S FUCI) EF F+FG+FH4+FI+FE 

FAQ RU CT) FRR+RS+RUWERZ4+RY 

72 VE QD) #00+QF4+OT+OUW+OZ 

FRINT 3 FRINT 3NEXT J 

CFSSAQ FRINT 3 FRINT 

FAUD RU ENR) INT CRU (NF) #1000+.R05) / 1000 











FAQ VE CNRO &TINT CC CNRO #1 GG Q +, AGUUAS) / 14000 

FASAQ PRINT: PRINT 

FAR FRINT'COUMEINAISONS DE CHARGES" 

FRINT 4 FEINT 

PRINTSFE CL)"CAS "CS CU) "+ MCSCHIME MECS CH) "+ 
MES CH) CS (En) 

7480 FRINT:FRINT 

FSQ@8 FRINTSFC (4) "MOMENT TOTAL MAX = "MT (NF) 
7320 FRINT 3 FRINT 

7a40 FRINTEFC (A4) CEFF,TR,. TOTAL MAX = "TT (NR) 
7850 FRINT 3 FRINT 

F57@ FRINTSFC (4) "REACTION TOT, MAX.= "RU (NF) 
7375 FRINT:FRINT 

7390 FRINTSFC (A4) "FLECHE TOTALE MAX.: 
77QR FRINT:FRINT 

7720 FRINTSFC(4) "ROTATION TOT,. MAX.: 
7750 PRINT: PRINT: FRINT: 

8008 PFRINTSFC (CE) "xkmæex FOI N xxx" 
8108 END 






"FU (NF) 


"VC (NF) 
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POUTRE ENCASTRÉE A UNE EXTRÉMITÉ ET LIBRE A L'AUTRE 


La poutre est libre en A et encastrée en B. 


Ce programme permet de calculer les sollicitations et les défor- 
mations (voir listing de 6500-6800), décrites antérieurement. 


EXEMPLE 


P, = 5000 daN 
P2= 9000 daN 
P3= 3000 daN 
P4= 16000 daN 


6,00 
+ 6000 daN.m 


1500 daN/m 


de RE ue 


2,00 


RES 


2000 
daN 





he. 


2000 
daN 
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CHARGE 


CHÈRGE 


MOMENT 
MOMENT 
DIST. 

EFFORT 


FOUTRE ENCASTREE À UNE 
À L'AUTRE 


EXTREMITE ET LIBRE 


UNITÉS M daN RADIANS 


FORTEE INERTIE X-X MODULE  YOUNG 
(M) {CM4) CdaN/CME) 


2100a820 


rs 


5 


CHARGES FONCTUELLES 


UNTF, REFARTIE 


UNTF,REF, 1500 CHARGE F1 pet 'a 141") 
ABSCISSE 1 2 


ii à 


CHARGE F2 
AESCTEGE 
CHÊRGE 3 

ABSCISSE OS. 


ENC, EN 
MAX, TRAV, 
MOM, MAX, 
TR, Cf) 


E =-12000 
6750 


Î 
4 





EFFORT TR, (CE) 
REACTION EN 
REACTION EN 
FLECHE MAX, 

ROTATION EN 
ROTATION EN 


CHARGE 
CHARGE UF, 
ABSCISGE 
LONGUEUR 


CHARGE 


MOMENT ENC. 
MOMENT MAX, TRY 
DIST, MOM, MAX. 
EFFORT TK, (AY 
EFFORT TR, CH) 
REACTION EN 
REACTION ‘EN 
FLECHE MAX. 

ROTATION EN 
ROTATION EN 
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FART, : 


EN E 





LU, FR, FARTIELLE 








CHARGE, FA 
AESCISGE 4 


MOMENT 
: DIST. 
EFFORT TR, 
EFFORT TR, 
REACTION 
REACTION 
ROTATION 
ROTATION 


RU 


EH 5 4 45 “ ne 5 
-1780.7:40 
4, AGé 


oo, 


me 1950. 665 X 
sé ITS X = 
=19%0. 
=?.4E 
=9,7E-04 


(À 


D 


FLECHES 
G 

1,6 
X sx EH, 
*X = 4,8 
X = 6,4 
X : € 


EURE 
sv) 





&é4 


MOMENT ENC, 
MAX. 


EN E =-40209.98 


TRAV. 
MOM. MAX, 


CA) 


CE 
EN 
EN 
EN 
EN 


) 


F3 
K 


“16645. Di 
ET: 
=7161.254 
= iese, 74 
7161, 254 
25050, 74) 
=, (41164 
= 


À 
E 
À 
E 





MOMENT ENC. EN E =2 
MOMENT MAX, TRAV. 
li MCIM. MAX. 


A 
0 
ù À 


SR] 


























EN 
EN E 


Mmes 


FL 
Fi 


EN E 








T Fè J fà N : Le “ ( se 


MOMENT ENC, EN 
MO AMI FORT 
EFFORTOTR, (A) 

: TT (EH) 
TION EN 
REACTION EN E 
FL. . MAX, 
ROTATION EN 6 is 
ROTATION EN EH  #@ 


HOME MX FUTIN dé xt ee de 


























AG TEA 


ééé, bé 
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2 KREM FROG. "FASEM"ERO/8/8% 

D CLS : FRINT:FRINT 

10 REM FOUTRE SUR 2 AFFUIS: LIBRE/ENCASTRE 
15 REM & CAS DE CHARGES. 

20 KREM CAS COUFLE SIGNE (+) SENS MONTRE 

25 REM UNITES D'ENTREES: 

FA REM LM), INERTIE (CM4), ECdaN/cma) 

35 REM UNITES RESULTATS: M daN RADIANS 

40 FRINT'PORTEE LM)"ss INPUT L 

a FRINT 5 FRINT 

&@ FRINTUINERTIE X-X Cem4)"s;2INEUT IX 

és FAINT 3 FRINT 

SG FRINT'MODULE DE YOUNG CdaN/cme) "ss INPUT EY 
PQ FRINT:FRINT 5 FRIN? 

180G FRINTSPC (2) "PORTEE"SPFC CH) CINERTIE X-X°SPC CH" 
MODULE YOUNG" 

102 FRINT: FRINT 

LUS FRINTEFE C4) LESPO C@) TXSFC C7)EV: FRINT 

1 L re] F* F: I NT AN us ste vos vnct ist nues tés ste das via mis tin tt le ms miss tu tie Lt cts eme ad ain into ent cms mu ces cas os ane da me ct nv oi 
LR EVSsEVHi@"4 2 TXeTX/1478 :WAIT 254 

125 FRINT:FRINT: GOTO 206 

1 <H2 FAÉINT 4 FRINT 

INFUT "AUTRES CAS CO) /N CR) "5 CH 

IF CHeQ@ THEN 84@@ 

FRINTS: FRINT 

PARINTSFE(S) "CAS DE CHARGES :" 

2ES FRINT: PRINT: FRINT 

FRINTSPE (8) "I, CHÈRGE U.REF. " 

218 FRINTs FRINT 

= FÉINTSFC (GS) UE, CHARGE OUR, FART" 

FRINTs FRINT 
PEINTSFC (CS) UE, CH, PONCTUELLES" 

FRINTS: FRINT 

FRINTSPC ES) "4, COUPFLE ‘ 

à FRINTS FRINT 

PARA EDS, TRAFEZOTDALE 































PRINTSPC (B) "6. TRIANGUL.. SYM," 
FRINTe:FRINT: INFEUT TY 

REM CHOIX DE 1 À & IMNFOSE 

IF TYéré OR TYE1 THEN 200 

LE THEN 4E@ 

THEN 9@@ 

4 THEN 1500 

THEN TORG 

3 THEN 49G@ 


4aû 
470 
45û 
440 
450 
462 






















Us RER. 


# (EYKIK) 
EX TX) 


AGE UNTF, REFARTIE" 


SE UNIF.REF. «'"0 
GÜSUE 6000 

TO  14ù 
PART"; CF 





INF UT à 
INEUIT LOI 


l LC aa 
1118 
118 
1140 T 
1154 D 

11648 Z4 
1188 





NA LKLP4LF TE 
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F2/6))7/ 


) : PRINT 
PRINT + FRINT 
FRINTSPC (8) "CHARGE U.R. PARTIELLE" 
PRINTSPC (6) Men een! 
45 PRINT os FRINT 
FRINTSPC(E) "CHARGE U.R. FPART.="QF 
BRINT: PRINT 
 PRINTSFC (8) "ARSCISSE ="A2 
PRINT: PRINT 
ï FRINTSFC (8) "LONGUEUR CHARGE ="LF 
PRINT: FRINT: GOSUE 6Q@@ 
FRINT:FRINT: GOTO 140 
FRINT:GOTO 1540 
PRINT: FRINT'ERREUR Li" 
PRINT: PRINT 
à INFUT'NOMERE DE CH.FONCT."3;N 
PRINT: PRINT 2: Ne INT (N) 
j IF Nél OR N25 THEN 152 

DR Ii TO N :FRINT 
INT'CHARGE F"I53:INEUT FCI) 
3 PRINT: PRINT: GOTO 1710 

PRINT'ERREUR ! 1" PRINT: PRINT 

SCISSE "I:s INPUT ACL) 
EM TEST DE VALIDITE DE A(I) 
ES M ET D'ORDDRE D'INTRODUCTION 

ji FRINT:IF ACID %L THEN 1660 
IF Ie AND ACI)£ACI-1) THEN 1660 
FRINT:NEXT I 
OR Ii TO ON 
dep CL) HA CL) (LP A CL) CE) / (BALE 
ME CI) =MP CL) #MP (IL) 
à Rd CL) æF CL) # (LA CT) /L 
5 RJ CI) =RJ CI) +RJ(I-1) 
FF CT) æP CT) # (LA CT) )/L 
FF CDD &RP CL) RE CI 1) MF CN) /L 
XT I 
À RECHERCHE MOM.MAX. CH. FONCTUELLES 
à Iæl TON 
























































1905 UiæMF CN) #4 CT) /L 

1910 IF Tel THEN ME CD) æRJ CN) #A CI) +MP ND #A CI) /L 
1915 IF Nel THEN GeME CD) 

1916 IF GeMEC(1) AND Nei THEN DE=A(1) 

1917 IF THEN 2090 | 

1920 IFI=2 THENME CI) = CN) #4 CD) PF CL) CA C2) A (1) + 
ME CD A CT) /L 

1950 IF MECL)EMEC2) THEN GeM3(1) ELSE GrME(2) 








LAS IF Ne AND GeME (1) THEN Def (1) ELSE Def (2) 


IPAS IF N&eZ THEN Z@98@ 

1PSQ IF Tes THEN ME CT) &RT CND A CT) EF C1) & CA CE) à CL) 
JP CE) # Cf CE) A CE) à 

+ 

1960 IF MSC) MECS) THEN Gene (2) ELSE GeME( 
1P&L TF N&e% AND ICE) THEN Dis (s) ELSE DTef (5) 
1V6Z IF MS CI) MECS) AND ME CI) MÈSCT) THEN GeME (1) 








1963 IF Ne AND GeM3(1) THEN DE=A(1) 

1965 IF THEN 2090 

1980 IF THENMUW CL =Fl ND #6 CT D FC 1) 2 CA (4) A C1) ) 
1990 IF I=4 THEN MS CI) =MWCI)-F (2) #(A4(4)-A(2))-P CE 
)# (A (4) A CE) ) #1 

1995 IF MSCH) ME C4) THEN G=ME( 
1997 IF N=4 AND GeM3(Z) THEN D: 
2000 IF ME(2)2MECZ) AND ME(2) 2ME 

1) THEN G=M3 (2) 

2005 IF N=4 AND G=M3(2) THEN DEA 

2010 IF ME C1) 2MS C2) ANDME CL) 2MS C5) ANDME C1) ME (4) TH 
ENG: 
2015 IF N=4 AND G=M3(1) THEN DÉ=A(1) 

The. THEN 2090 

2040 =STHENMY CI) RQ CN) HA CL) PF CL) 2 (A CS) A (1) )—F 
(2) # (A (5) A (2) 

2045 IF Ie THEN ME CL) MY CDDP CH) à (A C5) A CH) )F (4 
»# (A C5) A (4) )+U1 

SANDME (4) ME (5) THEN G= 
5 AND G=M3(4) THEN D: 
NDME CH) MT (4) ANDME CE) 
ME CT 






















ME CA) ELSE GeME (5) 
A4) ELSE 
MS CE) SNDME 











ê CE) 


1) EME 





(2) AND (25 
HENGEME CE) 
2@S7 IF AND GEMS CE) THEN DS=A (5) 

2ASQ IFI: NOM CE) ME CE) ANDME CE MS (43 SNDME C2 ME 
L6) ANDME CE) EME CT 

HENGEMSE (C2) 
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ÆeMES CZ) THEN Pre (CZ) 
EME CE) ANDME (1) EME (4) ANDME CL) MS 
























AND GeM£(1) THEN Def (41) 
NEXT I 
TON 


sNEXT OT 


PCT) ef CT) ee CL CT) De CELA CT) ) 
tCI)EA CT) CL CT 2 + (L+f CT) 

à CL) +0 CT 10 

}æQW CT à +0 CT 15 

el CL) CL, EME ON 7 CE 





TASRE CRD 
VASRE CN) 


vf 


FONCTUELLES" 





TO N 
C (8) "CHARGE FUI" = "3 P CD) 


PRINTSPC (8) "ABSCISSE "I" = "sA(I) 
NTSPRINTSPE CO) esse ess 
FÉINT:FRINT 2 NEXT T 
FETNT: PRINT: GOSUE &O000 
REM CALCUL DES FLECHES 
FRINTSFC (8) "FLECHES s" 
FC ARRENT 
cel, (GKEYEXIX) 

LL HE 
X=0D TO L STEF .05%xL 
Lx CX/LTCX AL) TT) MF CN) 
EBX=(L-X3 /L-CCL-Xx) /L) TS 
FOR T=1 TO S 
DBCT)=1- CX/L) 2 € CL CT) ) /L) TE 
D dir ie 
JECT)iæi (Cl LE (ACT) /L) 
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270 GDET)=ABSC(L-X) /LekA CT) /LKIBCI))#xFCI) 
2390 IF X=Q OK X=L THEN GD(I)=0 

2995 NEXT I 
2688 mac X 










2GiQ IF X=e:Q AND X£=A(1) THEN 2770 
S61S IF Xæ%AC1) AND X<= THEN 2760 
S6EQ IF Xæ*ACE) AND THEN 27504 





PR 


IF 


L >< 


#4 CT) AND THEN 2748 
IF 4 (4) AND THEN 2770 
IF Xe CS) AND X£= THEN 27284 
DT= DE + (BD (1) +GD C2) +GD (CE) +BD (4) +GD (5) ) KE 
GOTO 27890 
: DT=DE+ (GD C1) +6D C2) +60 CE) +GD (4) +GN C5) )#EJ 
ETS GOTQ 2764 
74 DTeDE+ (GD C1) +GD CE) +60 CE) <GN (4) +GN (5) )+EJ 
2745 GOTO 2780 
2790 DTeDE+ CGD (1) +GD CE) +GN CE) +GN C4) +GN CE) ) EI 
27 GOTO 2760 
7 DTxDE + CGD CL) HGN CE) +GN CE) + GN C4) +GN CS) KE J 
GOT 2760 
DTEeDE + CGN CL + GN CE + GN CE) + GN C4) +GN CS) D KE 
ÿ GOTO 2780 
IF XeQ OR XeL THEN DT=@ 
SN dire dada cod 
vs FRINTSFC(S)"X = XSFC(Éé)"Fx = "DT 
2797 PRINT 3  FRINT 3  NEXT X 
5 RFEN) es MF CN) =Q 
5 RARCN)æeg 2 OS CN) = 
2900 FARINTs: FRINT: GOT 1464 
OPA FRINT: FRINT 
APGS INFUT "COUPLES CL 
20@7 GOTO SGIS 
FRINT: FRINT 
FRINT'ERREUR" 
FRINT: FRINT 
INFUT "ABSCISSE"; A4 
IF A4SL OR A4CQ THEN ©GG8 
VE 4CL. + (Lo) / CEHLI) 
V7=-VEe 5 É7SEY*IX 
M4: a er ti 














PRE D 








HASQ Ed, SKCLex (1-42 /L TE) 

5140 F4z CL/E7% (CL 2-4" #2) « (A4° Ce ERA A) / (4H 
)+A4% (L.—A4) ) 

FASO T7xV7 5 TerVves 


éA FRdz-CLx (A4-L/4-E#kA4%2/ (4#L)) /E7 
2200 MBR=E 4 »  M=M4 
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VA=V7 3 












RINTS #0 C@) "OCQUFLE" 

à (S } CL ENRRREREEREURRNES | 

PRINT 

C9) "CHARGE COUFLE æ CL. 
NT 





ÉAT: 






sFRINT:F GOSUR Ga 
NI Ee MT: RRINTs GOT 146 
4 CINTE FRINT 
AG 2 G INPUT CH, TRAPFEZOTDALE" 3 GS 
AR4Q F E GÜTO 4188 
4H a ! lon 












ALL +8 
DS el 


: 4Aé QG 
CAS) ASE) / CeKkLT2) 
sil HE) + fi 5) / COKLUE) 
35) ) / (A&L.) 

EU) / (4x) 


"A ASC 











+ LOKL "41 DEL BMAEE-ZF) /F9 
24 (OKL-AE) ) / CABKEVXIX) 









44 
4440 





F5 
44 ë 0 


etnos 


SE =" 45 
INT:PRINT: GOSUE 6000 

FRINT: PRINT: GOTO 140 

PRINT: PRINT 

INEUT "CHARGE TRIANG. SYM.";0@ 

5048 PRINT 3 PRINT 

SQSQ ASEL 

5070 VV=D6* CAL" 

5100 5 

5120 Eé=-Gé*(L 








RAS %Le (Tel) ARTE) / COKLTE) 
PEL CL HAE) HAE) / CGKL T2) 
XCEKL AS) ) / (G%L) 
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140 
s16@ 
m19@ 
D 1 





LA dr À 
vds À 


AT 
&@1@ 
FTP BE 
440 
£Gén 
Let Eh 
Get 
&lia@ 
&1=0 
Ce a 1 
&470 
8475 


& 4 





MésGiés CH e AE L RRAÈTT) / (48#1.) 
FOISSIOKREYEIX 2: WF TERL 

Fértiés (LérAST4+IQEL T4 TEL OIRASTS-UWF) /FA 
FéeGiés (LR -AE HCHxl 5) ) / CABKEYKTXO) 

‘ 28/4] 

L MeMé 
ÿ VEzVU 

; RARE 

à : TEHETY 
FRINTSPC C8) "CH. TRIANGULAIRE SYM" 

F F I N AE Le { re } HU ss votés ses oôvoé sév06 56 nés 000 code des! ai tsunami peuvent eut UD 
FRINT: FRINT 

FRINT SPC CE) CHARGE TRIAN.SYM æ"0é 
FRINT:FRINT 

FRINT: GOSUE 6Q00@ 

FRINT:FRINT: GOTQ 1464 

REM VALEURS ARRONDIES 

M OÆINT( Mekl@GB+, GG) /170008 

ME TNT (MEL GOG+, AS) / 1408 












TESINTITEEI QUQ+, GAS) / 1000 

VA=INT (VA*1000+, ARS) / 10082 
XX=INTCXX+1000+, GAS) / 17008 

VE INT (VE 1000+. 005) / 100% 

INT (FL QQGA+, GORE ) /1R00020 
RASINT(RAKIGGQQQ +. BBA I) /102aA70 

REM SOUS-FROGRAMME IMPRESSION 
FRINTSFC (CS) "MOMENT ENC, EN B &"MEk 

PRINT 5 FRINT 

IFOTYeS OR TYeé THEN FRINTSFC (6) "MOM, À 







MI-FORTEE "M 


8498 
&sD8 
éaQ 
ESS 
512 
6520 
£a 
&54Hà 
ba 0 
6560 
ES6E 
8575 
6577 
6578 
6382 


IF TY=S OK TYeé THEN Si 
FRINTSFC(S) "MOMENT MAX, TRAV, "M 
FRINT 5 FRINT 

FRINTSFC (CS) CDIST,  MOM, MAX, "XX 
FRINT 3 FRINT 
FRINTSPC (8) "EFFORT TR, (A) æ"TA 
FRINT: FRINT 

FRINTSFC (6) "EFFORT TR, CH) ÆeUTE 
FRINT:FRINT 4 WAIT 200 
FRINTSFC (8) "RÉACTION EN À æ"Vñ 
FRINT: FRINT 

FRINTSFC (8) "REACTION EN KH  æ'"VE 
PRINT: FARINT 

IF TYæ4 THEN 6597 

IF TY&r THEN 6600 
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6590 
SAGE 

5976 
6597 
6598 
Te LE 
éé1@ 
ES Les Pa 
CT el | 
6890 
8aGUa 
6120 
ÉTAT) 
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FRINTSPFC (GS) "FLECHE MAX, 
FRINT: FRINT 

IF TY 255 THEN 660 
FRINTSFE (6) "FLECHE AU Mmax 
FRINT: PRINT 
FPRINTSFE (6) "ROTATION EN À 
FAINT: FRINT 

FRINTSFC(S) "ROTATION EN E 
FRINT: FRINT 

PRINT: PRINT: RETURN 

FARINT: PRINT: FARINT 


ÉCS © 


mu 


=" 


FRINTSPE (6) Mexx FTN 464363636226! 


END 


POUTRE ENCASTRÉE A SES EXTRÉMITÉS 


Ce programme permet de calculer les sollicitations et les défor- 
mations décrites antérieurement, pour six cas de charges. 


EXEMPLE 






1200 daN/m + 8000 daN.m 


A | 10,00 | B 


6,00 





800 daN/m 


É 


3,00 
8z 
R d 
Q Z 
© 
LTÉE 


P; = 3000 daN 
P = 5000 daN 
P3= 4000 daN 
P4 = 6000 daN 
Ps = 7000 daN 


É 
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Ê EX GE UNE 





CHARGE UNTF,RE 


MOMENT 
MOMENT 
M (a ME. NT 


ENC, 
ENC, 
MAX,TRE 
MON, 
TR (4) 
FE F TR, (EF) 
REACTION EN 
RESACTION EN 
FLECHE M&X, 

ROTATION EN 
ROTATION EN 








CHARGE UF, 








LONGUEUR CHARGE 


MOMENT 
MOMENT 
MOMENT 


ENC, 
ENC, 
MAX 
MOM 
TE (6) 
TR. CE) 
REAC TION EN 
REACTION EN 
FLECHE MAX, 

ÉCTATION EN 
ROTATION EN 


TRA 





68 





F. 


EN A = 
EN E 
ÿe, 
MAX. 


FARTIEL 


FART € 


LS 


EN À 
EN E 
Va 
MAX. 

















FOUTRE ENCASTREE 


UNITES M daN RADIANS 
FORTEE 
10 


INENTIE X—X MODULE 








FONCT 





CHA 
ARSCISSE 
CHARGE 
AESCISSE 
CHARGE PF 




















= 4,5 


YOUNG 


2100008 


UELLES 


= 3000 
= 5000 
“= 4 

= 4200 


: 600 


ARSCI & © 
CHARGE FES Fi 7@G@ 
=6000 ABSCISSE 5 = 6,5 


e9,1E-@T MOMENT ENC. 

MOMENT ENC. 
MOMENT 
DIST,  MOM, 
EFFORT TK, (4) 
EFFORT TK, CE) 
EN 
EN 
EN 
EN 


REAC TION 





07 hi 
120 

4] 

=7074 
1776 
=3074 
“1776 
=4, BED 
(À 

=0 


FLECHES : 
a 


dE PS 


Ke >< 
FH 


DK DK DC DE 
{ 4 


EN KE = 
MAX. TRAV, 
MAX. © 





29850. 75 
20066, 25 
A457,5 


EN À = 







=13199,2S 
11880. 75 
A =17199,2S 
11000. 7S 
A #0 

=Q 


Fx = D 
Fx = Dirt 


. 2291 
.D789 
.A118 

= @ 


COUFLE 


CHARGE COUFLE =6008 
AESCISSE = 
MOMENT ENC, EN 4 =960@ 
MOMENT ENC, EN E =-2560@ 
MOMENT MAX, TRAV, &A4SSe 
DIST, MOM. MAX. = 
EFFORT TK. (6) ml 10e 
EFFORT TK, (CH) =—1152 
REACTION EN À  =-1152% 
REACTION EN KB  æ115S% 


FLECHE AU Mmax sl, SE-0S 
ROTATION EN À = 
ROTATION EN KO = 


CH, TRIANGULAITRE SYM 


CHARGE TRIAN,SYM =700 
MOMENT 
MOMENT 
MOMENT 
DIST. 


ENC. EN 4 = 

ENC, EN K =-5 
MAX.TRAV, =2187.,5 
MOM. MAX, = 
EFFORT TK. (A) = 
EFFORT TK, CE) 1750 
REACTION EN À  =175@ 
REACTION EN EE  =1750 
FLECHE MAX. ex, 7E-05 
ROTATION EN À = 
ROTATION EN EE  =0@ 


HR X FIN RHMEMEHEUMEHE HE 


CHARGE  TRAFEZOTIDALE 

CH, TRAFEZOIDALE 700 
ABSCISSE = 

MOMENT ENC. EN & =-4940,854 
MOMENT ENC. EN E =-4940,854 
MOMENT MAX. TRAV, =2759,166 
DIST. MOM. MAX. =5 

EFFORT TR. (4) =2450 
EFFORT TR, (EH) = 2450 
REACTION EN À  =2450 
REACTION EN KE  =245 
FLECHE MAX, 4, 8E-@% 
ROTATION EN À  =@ 
ROTATION EN BE #0 
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2 APEUIS ENCASTRES 
(+) SENS MONTRE 


COPA, ECdaN/cmi 

5: M daN RADIA 

REM, VOTR FER 
INFUT L 





) 








ANTÉRIEURS 
ÉFCENT "E GRT EL (M) 
INT 

Kek Coma)" INPUT TX 








YOUNG  Cdañ/ cm)" 
AD F RI NT 


3 INPUT EV 





l Gr EF SC) MINERTIE XX "SPC CE) 


"MOQU 


LP) ENY: FRINT 


SM "SE CH 


CHARTE 





ULREF, OO" 
«CHARGE UR, FART" 


FEINTSFC (8) ME, CH, FONCTUELLES" 
x RER PF Au 

3) "4, CQUFLE : 
R IN F 
"CL (S)"S. TRBFEZQIDALE  " 


« TRTSNGUL,  SYM, 
5 NEUT OTY 
Yi THEN 2@6@ 
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s THEN GR 
INPUT CHARGE LE, REF, "3 CG 
FEINT 


















FApg Ci PEREHEY# EX) 


UNIF.REF. "0 
same 

140 

.FART "3 GE 


ent 
41 PRINT: FETNT 
AE IN INPUT" CH. Ab 








INEUT 
LNFUTMLONI 
IF (CAB+LF 





AL 


x Bed) Te 
RCE ZLr TITLE 


1250 
12602 HEC ARE OP / 4e (LP 2) 4) /FA 
MEME 


VEr=V4 


1:00 
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1:46 
1e 
1420 
1450 
1440 
L445 
1458 
Li 
1452 
1454 
LAS 
1466 
1 450 


Léa 
LéeG 
1408 
1660 
171% 
1720 
17408 
1884 
1868 
1865 
1866 
1868 
1589 
187@ 
1875 
1877 
18904 
1890 
19@@ 
19QS 
1910 
1915 
1916 
1917 
1920 
+U 

1950 
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sf 5 XX=DE 
TASTE : TE=T4 
MéeCz : FRINT 
FÉINTSPE (6) CHARGE UFR, FARTIELLE" 
FRINTEPE CB) Mesa ae ee ee 
FRINT 4 FRINT 
FRINTSFC (CE) "CHARGE U.R, FART,="0F 
FFCINTs FRINT 
FÉINTSPC (CR) "ABSCISSE ="AZ 
FRINTe FRINT 
FRINTSFC (8) "LONGUEUR CHARGE  &°'LF 
FRINT:FRINT: GOSUR 6200 
FRINTs: FRINT: GOTO  14@ 
PRINT: FRINT: GOTO 15404 
FRINT: FRINT'ERREUR 1 OMAX.S CHARGES" 
FRINTs FRINT 
INFUT'NOMBRE DE CH. FONCT, "3 N 
FRINT: FARINT 2 NÆTNT CN) 
TFONETL OR NS THEN 1520 
FOR Teil TO N sFRINT 
FRINTUCHARGE FUIT; 3 INPUT FT) 
FRINT:FRINT: GOTO 1710 
FRINTUERREUR OUT s FRINTS FRINT 
FRINT'ARSCISSE "IssINFUT À CI) 
FRINT:IF ACT) EL THEN 1640 
IF Je AND ACT) <ACI-1) FHEN 1660 
FRINT:NEXT TI 
FOR Ii TG ON 
MF CT) CT) KA CT) 28 (LA CT) ) LE 
MO CT)=-P CT) CT x CL CT) ) RL 
MO CT) =MQ CT) +MQCI-1) 
ME CT ME CT) +MF CT 1) 
RJ (The CT) & CL CT) ) /L 
RJ CI) =RIT CT) +R (T-1) 
REF CT) eæR CT) (LA CT) ) /L 
RE CDD =RF CI) +RF CL 1) (MO CN) MF ON 5 /L. 
NEXT T 
FOR I=i TON 
Lie OMC OND 4 CL CT) + MF CN #6 CT) D /L. 
IF Iel THEN ME CTI) RIT CN) #8 CT) +UT 
IF Nel THEN GEME (1) 
IF GeME (1) AND Neil THEN DE=f (1) 
IF Nel THEN €@94 
IFIer THENME CT) =RJ CN) # A CT) -F C1) + Ci C2) A (12) 













ÎF MECGDGMECE) THEN GeME (1)  ELSE GeM3(3) 


1925 IF Ne AND GeME (1) THEN Def (1) ELSE DI=A(CE 





1%é l 2) © THEN GEeME C2) ELSE GeM:£ (1 
1881 IF NE AND GeMIS CZ) THEN Dis (2) ELSE Dir 
à 
1 





DER IF MECINSME CE) AND ME CI) EME CS) THEN GEME (1) 






MEC1) THEN Dis (1) 


CE) MS CA) THEN GeMS CE) ELSE GeME (4) 






BCE) THEN Disñ(ii ELSE DE=A (4 





N=4 AND CG 


AND OM CE ME C4) AND ME CH) ME 


2) THEN Dis (CE) 
5 CE) ANDME (19 MS CHIT 














C4) EME CO) THEN GeMS CH) ELSE GeME (5) 
Æ5 AND GeME(4) THEN Die (4) ELSE DE=f(S 


CH) EME C4) AND CH) EME CE) ANDMS CE) M 








5) THEN Dis (CE) 
2) ANDME CE) EME (4) ANDME (253 M 





Ne AND 
FNDME € 


THEN Dis (2) 
3 CE) ANDME C1) EME (4) ANDME C1) M 


FO NeS AND GeMS C1) THEN DS (1) 
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FRINT x: NEXT I 

FOR I=1 TON 

FiCI)=F (I) 
FICI)=F1 CI) +F1 CT-1) 

RR CI) =F1 CI)-RFCI)E:NEXT I 
FRINT: FRINT 


MEME CN) MA=MQ CN) 
M=G TA=RF CN) 


TE=-RR (N) VA=RF (CN) 

VER (N) 

Râ=@ :  XX=DZ 
FRINTSFC (8) "CHARGES FONCTUELLES" 
PRINTSPE (8) Mann annee meme 1 
PRINT: PRINT 

FOR Ii TON 


j PRINTSFC (8) "CHARGE F"I" = ";P(CI) 


FRINTS: FARINT 

FRINTSFC (8) "ABSCISSE MIT & Us ACT) 
FRINT: FRINTSRE (89. Mes ses msn 
FRINTSFRINT 5 NEXT T 
FRINT:FRINT: GOSUE 600 

REM CALCUL DES FLECHES 

REM TOUS LES 1/5 DE LA FORTEE 
FAINTSFC (C6) "FLECHES 2" 

EF 2/ CEREYEIX) 

Eu : ds 
FOR X = TO L STEP . 2%L 
CXs (KL CX AL) UE) EME CNT 
















SO BXe (Lex) Le (CL) JL) SE) MC CRD 


FOR I=i TO 5 
DBCI)=(1—(X/L) 2 (LA CI) ) /L)"2) 

J8 CL) = (1 (Lx) /L) 2 (AI) /L) 2) 

GN CD)=X/L# (LA CI) ) /LEDS CI) KP CL) 

GD (I) = ABS ((L-X) /LAACI) /L#JB CID #F CI) 
IF X=0 OR XL THEN GD(I) 50 

NEXT I 







s Dr * (BX+CX) 
IF @ AND K£e=f C1) THEN 2750 
IF A1) AND X£=eñC2) THEN 2740 
IF AND Xe CE) THEN 2750 
IF AND X£æfi (4) THEN 2720 
LF AND Xéef CS) THEN 4710 
IF AND X<#L. THEN 2708 








DT=D0+ (BD (1) +GD (2) 4GD C2) +GD (4) +GD (5) ) #EJ 
GOTO 2778 


SÜTG 2774 

DT=ÆDQ+ (GD C1) +GD C2) +60 CE) +GN (4) +GN CG) EI 
GOTO 27704 

DTeDC+ (GO C1) +GD CE) +GN CE) +GN C4) +GN CE) EI 
5 GOTO #7784 

D D CL) +GN CE) +GN CE) + GN 4) +GN C5) ) #EJ 
) GOTO 2770 

DE CGN CL) HGN CE) +GM CH) +GN C4) +GN CEDD«EJ 
1) 2770@ 

D TE TNT DT QUO +., AGAG1) / 10m 
FRINTSFC CH) "X = "XGFC (4) "FX æ "DT 

$ #5  NEXT X 

FRINT: GOTO 1464 





















PRINT à 
INFUT "COUFLE"; CL 

| GOTO SAIS 

FRINT: PRINT 

LG FRINT'ERREUR" 

S PRINT: FRINT 

INFUT "ABRGCISSE"; A4 

BAL OR A4:U THEN 3008 
HAE CL A4) #OL/LE 













3) "COUFLE" 


GOSUE éd 


ZOTDALE"MS GS 
4 @4 6 
fé @ 
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4168 PRINT: INPUT MABSCISSE"S AS 

ALGER IF SSL ORASEeSL,/E THEN 4@60@ 

# É 1 V° KL) /2 Ve=V7 

EME SALÉES) / CL ZKL) 
“ASKL) / C2#AS) 

















55) / (24#L) 

LE DKEY#IX) 

OX (EL QE T EL. +1 6 #85") 
De XX=D5 

: MEME 

3 VE=VE 

: TESTS 

Re Tr FE : MôeCE 

4400 FRINTs: FRINT 

AFAQ FRINTSPE (8) CHARGE TRAFEZOTDALE" 
4 4. äl. ñ L F' F I N T 5 F' C { 8 j M teens dan eue th ré us La dec es 2e es LU 
4SQ FRINT ss FRINT 

FRINTSFC (ES) "CH, TRAFEZOTDALE #"QS 
FRINT:FRINT 

FRINTSPC (CS) "ABSCISSE TP 
FRINT: FRINT: GOSUE 6078 
FRINT:FRINTs:s GOTOQ 14 

5000 FRINT: FRINT 

SOA INPUT CHARGE TRIANG, SYM. "sGé 
SQ4Q FRINT 3 FRINT 

MAS AgeL/E à Désl./e 

HO7A VOzstihe (LAS) /7:  VA=V9 

IAA Cér-Qlés LORS TCE) / CL EML) 
DleQ TOe-Côx CAESTR-AERL) / CBKkAE) 

“3 | TA=VA rs  EéxCé 

MôzCGiétr (LORD) / (E4#L.) 

MeeCié/ CIPPOKEYXTIX) 

Fée CELA TQRAETEEL +1 6K A5" 4) 
MESEE * L MeMé 

VE=VO 

_ MéeCé 

TE=-T@ 














5 FRINTEPC (8) "CH, TRIANGULAITRE SYM" 
5400 PAINTSRE 08) Messe reines 1 
AIG PRINT: FRINT 

SA FRINT SPFCCE) "CHARGE TRIAN,SYM &"06 
44 PRINT: FRINT 

Se0D FRINT: GOSUR &G0@ 

og FRINT:FRINT: GOTO 14 


6BGG 
6410 
GARE 
GAEA 
£a 
Gén 
EDS 
Gaan 
&1840@ 
ëi:0 
4 





&47E 
5 
BG 
GAS 
631 
ae 
SE 
4540 
550 
&560 
GE 
6575 
6377 
&578 
284 
65%0 
59 
ET 6 
9.7 
4598 
£a 
&61@ 
Gé 20 
bé 30 
5800 
Sam 
8120 
saaa 


M OÆINT( Mk10G@+, AO) / 1040 
ME=INT(MNEX1Q000+. @2S) /180@0@ 

TASTINT T£ sel QDGQ+, GAS) / 1000 

MÉETINT CM 1 QG +, GAS) / 1 A0 

TESINT TE 1000+, GS) / 1200 

Ve INT (VX 1 G00+, AG) / 1280 
XX=INTIKX 1 GU+. AO) / 1800 

VER TNT (VE 10G0+. DGSE) / 1040 

F INT (F#10000+.GQRS ) /10000@ 

Ré TNT CRT AAA Q+, RAAGL) /1AAA0@2A 
CINTSFO C6) MOMENT ENC, EN & æ"Mé 
FRINT 5 FKINT 

FRINTSFC(S) "MOMENT ENC, EN E &"ME 
FRINT 3  FARINT 
FRINTSFC (8) “MOMENT MAX. TRAV. "M 
FRINT 5  FRINT 









FAINTSPC C6) COTET, MOM, MAX, cm UXXx 
FRINT 5 FARINT 

FRINTSPC (6) CEFFORT TR, CA) "TA 
FRINT: FRINT 

FRINTSFC (8) "EFFORT TK, (CE "TE 
PRINT: FRINT 5 WAIT QG 


PRINTSPC (89) "REACTION EN 4  æ"VA 
FRINT: FRINT 

FRINTSFC (6) "REACTION EN EH  æ"VE 
FRINT:FRINT 

IF TY=4 THEN 6597 

IF TY=Z THEN 66@@ 
FRINTSFC (6) "FLECHE MAX" æUF 
PRINT: FRINT 

IF TY £%S THEN 6600 
FRINTSFC (8) "FLECHE AU Mmax entr 
FRINT: FRINT 

FRINTSFC(S) "ROTATION EN 4 "KA 
FRINT: FRINT 

FRINTSFC(E) "ROTATION EN EE =" 
FRINT: FRINT 

FRINT: FRINT: RETURN 

FRINTs PRINT: FRINT 
FRINTSEPC (9) ken FIN dx lt 
END 
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POUTRE CONTINUE SUR TROIS APPUIS 


Ce programme calcule : 

— les moments fléchissants (en chaque 1/5 de la barre). 

— les efforts tranchants (en chaque 1/5 de la barre). 

— les réactions et les rotations d’appuis. 

— les flèches (en chaque 1/5 de la barre). 

Sont prévues quatre cas de charges (voir listing de 1020-1500). 


Le cas de charges ponctuelles permet de traiter cinq charges simulta- 
nément. Toute tentative de dépassement est signalée par une erreur. 


Divers tests sont prévus pour valider les données (ex : l’abscisse 
d’une charge ponctuelle ne peut pas dépasser la portée d’une barre). 





EXEMPLE 
1= 16270 cm4 1= 8356 cm4 
À 10,00 B 500 C 
A daN/m 400 daN/m 
550 daN/m 

P; = 2000 daN 
P; = 4500 daN : 
P3= 5000 daN P1 = 6000 daN 
P4 = 2500 daN P2 = 7500 daN 
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— 6000 daN.m — 4500 daN.m 





LJNT 
MEIQUIL.E 






. TOTALE 





CHAF UNTF, REF, 600 


BARRE No 


CHARGE UNIF, REF, #400@ 
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MOMENTS ET EFF., TRANCHANTS 


BARRE No 1 

Xe  MasQ  Tue2550,71Z 

RE MK=eë916. 624 Tas13Sg, le 
Ke Mama, 248 Tx=150.7512 
Mx=4549,072  TKk=-1041,688 
X= Mim1téé, 496  Txz-2741., 6808 
X=10 Muz-4416,879 Tx=-5441,4688 


BARRE No 

Xe0 Mx=-4416,.879  Txm1807, 275 
X=1 Mxz-2725,594 Tr=1483. 375 
Xe Mam-145S0, 128 Tur1O8i, 257 
JF Mxse-S66,752  Tk=6@5, 575 
Xe Maxi i7é  TrezQi, A7 
Xe MxrQ  Tuz-116, 625 







RÉACTIONS ET ROTATIONS 
RÉEACTION EN À 2559.21 
REACTION EN E mSiaS, Gé 
REACTION EN C PAPER EE 





ROTATION EN À #5, 1626-05 
ROTATION EN BE =-3, QU7E-@S 
ROTATION EN © =9,11E-0@4 


DEFORMÉATIONS 


EARRE No 1 








PHARE UNIF.REF, PARERERRE 





BARRE Ne 1 

CHARGE UFR, FARTIELLE «700 
ABSCISSE #4 

LONGUEUR DE Lé CHÈRGE 5, 


BARRE No € 

CHARGE UFR, FARTIELLE 550 
AASCISGSE #2 

LONGUEUR CE LA CHARGE #2 


MOMENTS ET EFF, TRANCHENTS 


BARRE No 1 


ae 


Lana) 
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BARRE No 


3 


44%, 647 
1514.918 
586.188 


REACT TON 





FOTATT CN 
RCTÉTION 
RCTATTON 


DEFORMATI 


EARRE No 












EN À 1 
EN E 
EN CC 







ONS 


l 

4 2 (À 

S, G7E- QE 
6, P&E- QE 
FT GIE-QE 
M PRE-Q SE 



















MOMENTS ET EFF, TRANCHANTS 


BARRE Na 1 








x: TheésG@. Q9E 
me 2000.186 Tx=6940.@9E 


ESA.I7E  Tre4QQ, 09% 
12900. 559 Tue-7009.907 
1299,254 Tue-7090.907 
He-15499,068 Tuz-7099.907 


EARRE Neo 


X={ 






r15499,068 Th=6699,817 
799,254 The 6699,81€ 
-2099.441  Tur6699,817% 
Mx=4éQQ. 275  Ter6699,81Z 
XeUiQQ. 186 Txr69G,B1T 
Tke-6840. 187 
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REACTIONS ET KROTATIONS 
REACTION EN & =6900.092S 
REACTION EN & =12799,7%# 
REACTION EN CO =6800.186 
ROTATION EN 8 =.917904 
ROTATION EN E &-7,187E 
ROTATION EN € Ë 










DÉEFCRMATICNS 





1.Q09E-QS5 
1,87E-R5 





COUPE 





BARRE Ne 1 
COUFLE = 6400 
ABSCISSE «4 


BARRE No © 
COUFLE = 4500 
ABSCISSE = 


MOMENTS ET EFF, TRANCHANTS 


Mx=Q RSS RASRE 

Mx=1242,658 Ts 21,529 
Mxz2485,717  Tx 671 É 
M 
M 





KHe-2272,02S TK 21.229 
He-1029,766 Tkeézi,529 
Q MH=DiT, 292 Tazé21.:29 


EBRRE No € 

Xe0  MkeDir,. 292 Txe=g57.341 
Xel Mxz1070,6874 2657, 3:41 
X=2 Mx=1927,975 H=e057,. 541 
X=T Mxz=2785,517 jee 41 
em Mxz-057, 34% 2957, 341 
= MazQ  Txeeÿ 7.541 


x x 
FEEES 


RÉACTIONS ET KROTATIONS 
REACTION EN À =621,2529 
REACTION EN & e236,Q1E 
-REACTION EN CO æ-057,4 
ROTATION EN À =-1,31E-04 
ROTATION EN BE =1,%14E-0% 
ROTATION EN CO =-%,72E-0@4 





ae tt 
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DÉFORMATIONS 


EARRE Mo 1 





No 





F 
F 
F 
F 
F 
F 


DE IE HE DEN AEAEMe  FT NI 6e EE 


9 CLS 5  FRINT 3  FKRINT 

14 REM FROG,FOUTRE CONTINUE SUR 3 AFFUIS. 
EQ REM  FKROG, MFIEA" +Q 
20 REM 4 CAS DE CHAR 
40 REM UNITÉS D'ENTR 
CCaN CM 
188 PRINT "MODULE DE YOUNG CdaN/CM2) "ss INPUT EY 
120 FRINT 3  FRINT 

148 FOR Tel TO Z 

160 FRINT'RBRRE Na MT 

17@ FRINT 4 FRINT 

188 F RINT "LONGUEUR (Mis sINFUT LCTi 

198 FE sr CENT 

eUQ FR INT MINERTIE IX (CM4) "53 INPUT IX (CI) 

FEÉINT 3 FRINT 

NEXT TI 

1 FRINTGFC CE) "MODULE DE CYOUNG &"EY 

FO FRINT 2 F R INT 

F OK + T0):5 





L (M) ,IXCCMA4),E YOUNG 




















HARRE No MT 
D (D) me conso me me 1 
5. FRINT 


FF IN ITSFC (6) "LONGUEUR = PL CT) 
FRINT 3 FARINT 

FRINTSFC CS) MINERTIE æ MIX (I) 
FA INT 5 FRINT 





NEXT. 1 

Gel. (1) TX C1) +L (2) /IX (2) 

GOT 1008 

3 CLS 3 FRINT 3  FRINT 

1000 PRINT 5 FRINT 3 FRINT 

1A:Q F ie NTSFC CE) CAS DE CHARGES 4" 

FRINT 5 FRINT 

FC C9)"1, CHARGE UNIF.REF, TOT." 
À PRINT. 5  FRINT 

1U6U FRINTSPE (CS) "2, CHARGE UNIF.REF, F&RKT" 
18474 F 5 FRINT 

1G48Q FRINTSFC (CO) UE, CHARGES FONCTUELLES!" 

1890 FRINT 5  FKRINT 

1180 FRINTSFC(S)"4, C'UPFLE" 
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1500 INFUT CH 3: FRINT 

1520 IF CHr4 OR CHE THEN 1000 

1540 IF CHel THEN 1800 

186@ IF CHEZ THEN 5000 

1580 IF CHeï THEN S008 

1888 IF CHx4 THEN 7200 

1800 FRINT os:  FRINT 

1814 FOR I=zi TO € 

1820 FRINTSFC(S)"EARRE No MT 

1850 FRINT 5  FRINT 

1840 FRINTSFC (8) "CHARGE ULREF, TOT "3: INFUT QI) 
1945 REM FACTEURS DE CHARGE 

1860 KH1(I)=Q(T)#L(T)"3/ C24KkIX(I)) 

1800 KEECT)=0Q CT) #L CI) TS) CEAKTX (I) ) 

1908 S=L (1) /IX (1) +L (2) /IX (2) 

1919 FRINT :  FRINT 

1920 NEXT I 

1920 FRINT 5  FRINT 2: FRINT 

1950 FRINTSFC (8) "CHARGE UNIF,REF. TOTALE" 


197Q FRINT :  FRINT 

2000 GOSUE 8000 

2100 REM MOMENT SUR AFFUT E 

2110 Ei=-3%(Kk2 (1) +61 (2)) /5S 

2115 RE°T MOMENTS & EFF. TRÉNCHANTS 

2120 FOR Isi TO 2 

2122 FRINT 2:  FKRINT 

SLZS FRINTSPC (C2) "BARRE No "TI 

SES FPRINFSPRC(S) Mere! 

2140 FRINT z:  FRINT 

2150 FOR X=9 TO LCI) STEF .2#L(I) 

2160 MZCI)=QCT)K#Xx(LCT)-X)/2 

2180 TSCI)=QCI)K(L(T)/E-X) 

2190 EZ(CI)=24KEYKIX (I) 

2200 FSI) =Q CI) #X%x CL CT) TE-TUL CT) XXI) /EZ (I) 
247Q IF I=i THEN MX(I)=MZ(I)+E1xX/L(T) 

2480 IF I=2 THEN MX(CI)=MZ(I)+E1#(L(I)-X)/LCI) 
2490Q IF I=l THEN TI(CI)=TS (1) +E1/LCT) 

2510 IF I=Z THEN TICI)=TS(I)-E1/L(I) 

Ben MXCT)ÆINT (MX (1) *1000+. 20005) /1000 

29354 TICI)=INT(TI(I)#1000+. 005) /1000 

257@ FRINTSFPC (CZ) "Xe" XSPFC (1) "Mxæ" MXCI)SFC (1) 
MTH=" TI CI) 

2970). PRINTSPE (2) eee ne ne po D sn mm 
2 @@ NEXT X :  NEXT I  :  WAIT =@@ 

2605 FOR Isi TO € 
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2610 
2615 





sé 
sé 
=600 





2780 
2790 





2840 
2650 
2860 
28710 
408 
es 





a GC 


VICI)=QCT) KL (CT) /E 

NEXT I 

FOR I=1 TO 2 

21 CI) KIX (CT) 
BCLI)#xIX (I) 
VBCI)xVI CTI) 

VS (ID)ÆVICI) 5: NEXT I : MR=EI 
GOSUE 8700 

GOSUE 9000 

REM CALCUL DES FLECHES 
FOR Is=1 TO 





5 PRINT 2  FRINT 


FRINTSFC (SG) "RARRE Na "I 

PRINT 3  F'INT 

DE (I) #L (I)"E2/ (6KEY#IX (I) ) 
EZ(I)EÆS4KEVKIX (I) 

FOR Xe TO L(I) STEF 0@.Z#L(1) 
CXCI)=X/L CT) CX/L CITE 

EX(T)=(LCI)-X) /L os (LOT X) AL CTI 
DAT) =QCI)KxXx (LCI) TE-2EL CT) EX 24XTE) /EZ (1) 
F1 CI) =DE CI) #CX (I) #E1+D0 (1) 

IF IzeZ THEN Fi (T)=DE CI) #0X CI) KE1+DB{(1) 
FA CI) ÆINT (FI CI) #100000+. 000005) / 17007008 
FRINTSEC (8) "X=UXGPFC (CS) "Fa "FA CT) 

FR I NTSFC (8) WU see at vous cine sin Bitte eur vod née mem es es Gr cie mi me es de ut sien ce ma ces ais ms D 
NEXT X :  NEXT I 

FOR I=1 TO € 

MX CT)=Q 5  MZ(I)=02 

TiCI)=@ TS CI) = 

EF CT) =0Q ES (I) =0Q 

NEXT I E1=û 

Ur 1GRQR 

FRINT 5 FKRINT 

FOR lei TO 





a FRINTURSRRE No MI 


3050 


nu 50 








PRINT 3: PRINT 

INCUT "CHARGE UNTF,REF, FART! 3 CF CT) 
FRINT 5  FARINT 

IF GQFCI)=Q THEN 2190 

GOTO 140 

FRINT 35 FRINT 

FRINT "ERREUR UI" 

PRINT. 3 FRINT 

INFUT "ABSCISSE" AE CT" 

PRINT 3 FRINT 

INEUT "LONGUEUR DE LA CHARGE!" 3 LEF (1) 
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Pc peur PA | 


2540 






130 
5608 


3608 
39 1 @ 
2915 
THEN 
2920 
2960 
2970 
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FRINT 5  FRINT 


y) REM TEST DE VALIDITE DE AZ ET LF 


IF (CAZCID)+LF CI) /2) LCI) OR LF CI) LCI) THENS100 
NEXT I 5 FRINT 3 FRINT 5  FKRINT 
FRINTSFC (8) "CHARGE UNIF,REF., FARTIELLE" 


FRINT 5  FRINT 
FOR Teil TO 3 
FRINTSFC(S) "BARRE No "I 


: FRINT : FRINT 


FRINTSFE CR) "CHARGE U.R, FARTIELLE ="QF (D) 
FRINT : FRINT 

FRINTSFC(S) "ARSCISSE ="AZ(I) 

FRINT 5 FRINT 

FRINTSFC (8) "LONGUEUR DE LA CHARGE ='"LF (CT) 
FRINT : PRIT. 


CPRINTSFC (8) Ms cos co moe ce ae ae ne ae one ae ae one ne ee ee on me me 


NEXT I 

FOR Isi TQ € 

L7(I)=Z4xL (T)#IX(I) 

LE CT)æ4x (LT) AE CT) UK CAR CI) +L CT) )-LF CID) TE 
L9 CT) =4RAE CT) & CL CT) -AZCT)+LCI))-LFCI) TE 
REM FACTEURS DE CHARGES 

HE CT) #QF CI) #CL(I)-AZCI))KLF CTI) #L9 (I) /L7 (1) 
EH4 CT) =QF CI) #2 CI) KLF CI) KLE CI) /L7 (I) 

NEXT TI 

REM MOMENT SUR AFFUI E 
Etes (CHA C1) 4H CE) ) /S 

GOSUR SG@@ 

REM MOMENTS & EFF,. TRANCHANTS 

FOR I=1 TO € 

FRINT 3  FRINT 

FRINTSFE C2) "RARRE No MT 


 PRINTSPE (D) Men conne 


FRINT 5  FRINT 

C9 (CI)=L(CI)-(CAZCI)+LF CI) /2) 
AGCI)EAZCI)-LF CI) /E 

BE(I)=ELF(I)+E2#C9 (TI) 

WS CT) EeLF CI) #0FCT)#(LCT)-AZCT))/LCT) 

FOR X=Q TO LCI) STEF .Z#xL (I) 

IF Xæ%GANDX£ 2: (AZ CT) -LF (TI) /2) THEN 5960 

IF Xæe% (AS CI) -LF CI) /2) ANDX£= (AE CI) +LF CT) 7/2) 
3990 

IF Xe (AZ CI) +LF CT) /2) AND X£#L CI) THEN 4870 
MN CT) NS CT) KX4+E ZX /L CT) 
TECI)EW9 CT) +EZ/L (CI) 





>@ 
5995 
aan 
ETES 
4D@7 





THEN MNCT) #9 CT æXx4+E 
THEN TS (T)æeWg (TI) 


# (LCI) -—X) /L CT) 
L (1) 





34 GOT 4708 


UE CT) =QFCI)DECX-RE CT) +LF CI) 7/4) 
UV CT)=CX- CAG CT) LEA CT) / 40 à / 
MN CT) &W9 CT) #X UHR CT) #UV CT) HE X /L CT) 

TE CI) EN CT) -QF CT) OX CAE CT) LFP CT) 48) ) +EZ/L 007) 
IF TRS THEN MN CT) 49 CT) XIE CT) 3e UN CT) +E CL € 













TD) /1L CT) 


4Q10@ 


12) 


ABS 
4Q:@ 
4: @ 
4@<H2 
RAS 
2% (L 
4QS A 
LCI) 
40602 
4100 
4:@0 
4220 






4540 
4GAG 
4410 
4820 
4& T0 
4640 
4645 
4650 
AGE 
4680 
46 
4670 
487% 
4675 
48768 
48580 
4686 
4890 
47Q0@ 
47QË 


IF 1e THEN T2 (To WCT) -QFCT)KCX- CAB CI) -LF CI) 
1. CT) 

1 4X@0Q 

UT CT) se (LP CI) /2+X- CAR CT) +LF(T) /20)) 

MN CT) &W9 CT) EXC CT) KL CT) UT CT) + xx /L CT) 

Ta CT) = Qi CT) #LF CT) HA CL) SL CI) +ES/L CI) 

IF Je THEN MNT) WI CT) 6 X-QF CT) #LF CT) #UT CI) +E 











CI)-X)/L CI) 


IF Tes THEN TE (CT) QF (CT) KLF CT) KA (CID /L CI) -ES/ 


GOTAQ 4EQR 

REM VALEURS ARRONDIES C5 DECTIMALES) 

MN CT) Æ INT (MNT) #1@00Q+, GGQS) / 1400 
TECI)S=INT(TE (TI) #1000+. Q00S) / 1008 
FRINTSFC CH) "Xe" XSFC (C1) "Mxæ" MN CT) SPC (C1) 


"TE CI) 


FRTINES FEMMES SSSR EEE RSR RS Essen 
NEXT OX 3  NEXT TI  :  WAIT :aQ0 

FOR Lei TO 

EF (I) 3CI)KIX (CI) 

ES CI)=kE4CT)xIX CT) 

Va CT) &#QF CT) KLF CT) KE CT) / CELL CT) ) 

VI CI) =QF CI) KLEF CT) # CENAG CT) +LF CT) ) / C2KL CT) ) 
NEXT TI 

FOR Tel TO # 

VRB(I)=VE (TI) 5 V9 (CT) EVE (CT) 

NEXT TI 

MEXES 3: GOSUR 8:00 

GOSUE 9G@@ 

REM CALCUL DES FLECHES 

FOR Tel TO 

FARINT +:  FRINT 

FRINTSFC (8) "BARRE No MI 

FRINT 3 FRINT 

QC CI) =QF CT) / CABGKEYKIX CT) KL CT) ) 

EF CT) æL (CT) TE / (&kEY4TX CT) ) 

LUI CT) LFP (IT) TE 
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4710 FOR Xe TO LCI) STEF @,Z%L (CT) 
de EX CL) = CX/L CI) CX/L CT)? JD KEZ 
BX(I)=æ(t{LCI)-X) /L CT) C(LCI)-X) /L CT) DIRES 
IF X=:Q ANDX _ CAZCI)-LFCI)/2) THEN 4750 

se CAS CI) LFP CT) /E2) AND X£e (AS CI) 4LF CT) /2) 



















cs CAE CD) 4+LF CI AND X£æL(I) THEN 4870 
OW CT) (44 (LCI) TX) ee (LP CL) +BK09 CI) )%2-LU CD) 






#00 
OZ CL) +CX CL) KEK CD) 
THEN QT CI) #02 CI) +EX (I) KEK (I) 


“ BK CT) ) EXACT) 









CH) (LP ue 


LS CD el. BC CI) )#KX 
si OD (I)=(4#(L CI)" Xe 


(LP CT) #+2#09 CT) )%2-LU CT) 








BH CI) #(X-A9 CT) ) "4 
QC CD) # (OG CT) #OD CI) #CH CT) ) 
5 (I) 





CH CT) 





CID C2KAY CDI #LF CII # CL CT) =X) 
. X) = CEA CL) +LF CID) %BLU CT) 





4840 
ù 
486 a QE CT) & CIC UT) #HX CT) #HY CT) 
OT CT) QE CT) +CX CT) KE CL) 
VOIE Ie THEN QT CD) &0E (CT) +EX (I) KEK (TI) 
OT CT) & INT (OT CT) #144000+, QUGQGS) / 100000 
FRINTSFC CE) Xe TX GREC CE) MF MOT CT) 
à 9 " ù F* cf T N T SF [ES { &) LE nes om mets ave opus cote ns tes ins don me so0e come nom cime ne cie mu an mé one ohne me den 
X 5  NEXT IT 
de #1 T0:2 









MNCI) 0 
QF (I) =Q 
ES (TI) #0 
NEXT I 


WALT QG: GOTO 14000 

PRINT 3 PRINT 3  FRINT 
FRINTSFE CE) "CHARGES FONCTUELLES" 
5 PRINT 4  FRINT. 3  FRINT 

FOR Tel TO € 

es FRINT 5 FRINT 

SO FRINTURARRE No "TI 

AUSQ FRINT 4 FRINT 

a@7Q INFUT "NOMBRE DE CHARGES": N CT) 
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ane 
SAS 
2097 
1 20 
120 
le 
140 
s13@ 
“168 
u1i7@ 
190 
eQR 






NÉTI=INT(NCI) ) 

FARINT 5  FRINT 

REM MAXIMUM & CH, FONCTUELLES 

IF ONCI)EQ OR NCI) ES THEN FRINT'ERREUR" 

IF NCI)<@ OK NID ES THEN S@SQ@ 

IF ONCI)&Q THEN S405 

FOR Jei TO NI) 

FRINT'CHARGE FONCTUELLE F"g33: INPUT FCT,4) 
FRINT #4 PRINT 

FRINT'ABSCISSE "Js: INPUT ACT, dd) 

IF ACT,J) LCI) THEN FRINT'ERREUR" 

A Se THEN 5170 

EST D'INTRODUCTION DES ARSCISSES 

# AND ACT, ,J)EAUT,J-1) THEN FRINT'ERREUR 








ORDRE D'ENTREES" 


40 
ac 60 
3280 
pre 416) 





2340 


EE 


Te" 


3:60 
40 
DE 74 D 
407 
41 @ 
420 
5450 
344 
5450 
470 
SAT 
480 
5490 
perte #41 


5500 


33 4 (7 
3360 
of 


ter Le Le 


st sf 

per 
6e 
dé: 


IF J=}2 AND A(I,J)£A(I,J-1) THEN 5140 
ZiCI,J)=P(I,J)#ACI,J)#(L(I)-A(I,9)) 

Z2 (1) #6%L(I)#IXCI) 
HS(I,J)=Z1 (I, J)#(CÈkL(I)-A(I,J))/Z2(1) 
H6(I,J)æZ1CI,J)#(ACI,J)4+L(I))/ZP(I) 

EX CD)SKS CL, L)4+KS CI, 2)+ES C1,2)+E5 C1,4)4+€5S (1,5) 





EY CD)=K6 (I, 1) +K6 CI, D) +K6 (1,2) +6 (1,4) +K6(I,5) 
PRINT : PRINT 

NEXT J 

NEXT I 

REM MOMENT SUR AFFUI E 


Es (EY C1) +EX C2) ) /S 

FOR Iæ1 TO % 

FOR Jx1 TO NCT) 
XU(T,J)eF(T,dJ)k(L(I)-ACT,d))/L CT) 

XX CT) =XU CT, 1) +XUCT, 2) +XUCT, 2) +XU CT, 4) +XU CT ,5) 
FICT,J)= =PCI, 0) 

FX CLP CT, LD +FA CT, HD) +FA CT ED +1 CT, 4) +F1CI,5) 
VYCI)=FX (CI) -XX (I) 

NEXT JO :  NEXT I 


FRINTSFC (6) "CHARGES FONCTUELLES" 
FRINTSFC CR) Massa me me me me pe me ee ce eme nomme em anne 
PRINT 3  FRINT 5  FRINT 


FOR Iæi TO € 

FRINTSFC (9) "EARRE No "TI 
PRINTSFC COQ) Messe ee 

IF X%@Q AND X£ACI,J) THEN MOCI)=MUCT)#X/L CI) 
FOR Jxæ1 TO NCI) 

FRINTSFE(S) CHARGE F9 "e URI, d) 
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FRINT s  FRINT 
C(B)"ABSCISSE "J"= "ACI,J) 


C { Fe ) VD eee nues s60e mue m6 omte mu co mm ces onme 0008 evmme ones coms mes mn me mme DU 






















SUR GG 

FO MOMENTS & EFF, TRANCHANTS 
An FOR I=z1 TQ # 

3 FRINT 
HA FRINT 
\ FRINT k 
INT 5 
« Va ss (2 












FO Ex CT) 

) THEN 6700 
"ACT,2) THEN G2SUA 
A(I,Z3) THEN 6208 
t(T,4) THEN 6150 
(I,4) THEN 6188 
LOI) THEN GS 


ee 


AND: 
ANDX« 
(1,5) AND } 
YYCI)4EZ/L (I) 
CID # CL CH) —X) 
#X/L (I) 

Dee VY (I) —E 


















; X) /L(CT) 
b@E GOT (Ci 


Let PCI, EF CL) FCI ,4) 


un ACT, 23) 

CC CL) +DD (1) 
(I1,1)#(X-ACI,1))-HHCI) 
X/L. CI) 


HH CL 
ARS 


(I) =X) /L CD) 










#(X-ACI, 
XL CD 
51)-FCI,2)-PCI,Z 
LR Ty LCI) 
{LCI)—X) /L CL) 






Ni 2 1 CX- -A(T,1))-BRCI)-CC CC" 


à 


(es A 1 
GAS 
baie 
&ELS 
&£E6 
6250 
6240 





GE4S 
és 7 @ 
b7 
&ae 0 
Tes 


bn 
GET 
éé Aa 
Te het 
éë&1t 
ééa2@ 


Ste) 
bé 
b6ER 
LTephe) 
&é40 
643 
6645 
6650 
Te ta Ri] 
Gén 
Tete 
6e 
bé 
&740 
&T7ÈE 














MOI) =XX (I) eX-FT,1)#CX-ACI,1))-BHR(I) 
MF CT) MO CI) +E%xX/L CT) 
TL OT) EXX CI)-FCT,1)-FCT,2) 
TE CI) &TL CI) +ES/L CT) 
IF TI THEN TE CT) =TL CT) -ES/L CT) 
IF Ie THEN MF CI) MO CI) +E%% CL CT) -X) /L CT) 
GOT 8570 
MO CI) ÆXX CID&X-FCT,1)#CX-A CT, 1)) 
MF CT) MO CI) +E SX /L CT) 
IF Ie THEN MFCTI) MO CI) +E x CL (I) -X) /L CT) 
TL CI) EÆXX CI) -F CI, 1) 
TE CI) ETL CI) +ES/L CT) 
IF IS THEN TE CI) TL CI) -ES/L CT) 
3OT0 6570 
MO CT) æXX CI) KX 
MF CT) MO CI) +ExX/L CT) 
IF IeS THEN MF CI) &MO CT) +E%% (L CT) -X) /L CT) 
TLI)ÆXX CI) 
FCI) TL CTI) +ES/L (TI) 
IF Ie2 THEN TA CT) &TL CT) -ES/L CT) 
GOT 6570 
ME CT) & TNT MF CT) #1@0008+. AGE) /1G86 
TE CI) & INT TE CD) #1@000+. G@@S) /1@0û 
FRINTSFC CE) "Xe XSPC C1) MX "ME CI) SPC (1) 
“(I) 
FF I N T Le F [a ( 2 } UE LL voue cons come cons son0 ame onnee mm ctne come 2060 0000 anne om tee cos 4200 me me use cs cote m0 0000 mme om sms cm0 00e 1 
NEXT X 3  NEXT TI  :  WAIT =@0 
FOR Teil TQ € 
VBCI)=XX (I) 
V9(I)=YY (CT) 
EF CI) &EX CT) #TX CI) 












ÿ EHSCT)&EY CT) #IX CT) 


NEXT TI 
ME: 
GOSUE 8:00 

GOSUE SGA 

REM CALCUL DES FLECHES 

FOR Tel TO € 

FRINT 5 FRINT 

FRINTSFC (6) "BARRE Na "TI 

PRINTSREES) Messe 

FRINT 3  FRINT 

EE CT) æ&L CI) T2 / CO#EYXIX CT) ) 

2 CI) #L CT) 

X=Q TO L(I) STEF @.ZxL(I) 

EX CI)=€CCLCT)-KX) /LCT)—-CCLCT)-X) /LCI))TI) KES 


_ 
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6705 EX CTI)ÆCX/L CT) CX/L CID) KES 

&710 FÜR Jel TO S 

68720 DA(I,d)=(i-(X/L(CI))%E-C(LCI)-ACT,J))/LCT)) TE) 
&7EQ A Le te) Das eo 


d) 

Li) 

&7AR IBCT, Ji (1 CL CT) eX) /L CT) DE CA CT, 9 /L CT) ) TE) 
8788 GD(T,J)=AESCCL CT) -X) CN de D 


)#FCI,J) 

8755 IF X=Q OR X=L(I) THEN GD(I,J)=0 
6775. NEXT J 

8780 DCI) =EK CI) #CX CI) 

6790 DJ(I)=EH (I) #EX CL) 

BD IFX: NA CTI) 7e 7000 

6BR7 IF X £= THEN 6970 
8810 IF THEN 6930 
8815 IF THEN 6900 
SEE IF THEN 6870 
6825 IF THEN 6840 
6840 IF I=2 THEN DE(I)=DJ (1) 

6845 DTCI)=DÉ(I)+(GD(I,1)+GD(I,R)+GDCI,2%)+GDCI1,4)+ 
GD(I,5))*EJ(I) 

6860 GOTO 7100 

6870 IF I=2 THEN DE CI) #DJ (LD) 

8875 DTCI)=DÉ (I) +(GD(I,1)+GD(I,2)4GD(I,%)+GD(I1,4)+ 
GNCI,5))#EJ (I) 

6480 GOTO 7100 

6890@ IF I=2 THEN DE(I)=DJ (1) 

8518 DTCI)=DHCI)+(BD(I,1)+GD(I,2)4+GD(CI,2)+GNCI,4) + 
GN(I,5))#EJ (1) 

8920 GOTO 7120 

6920 IF I=2 THEN DÉ(I)=DJ (1) 

69%5 DT(I)=DECI)+(GDCI,1)+GDCI,2) +GN CI, 2) +BN CI, 4) + 
GN(I,5))#EJ (I) 

6950 GOTO 7100 

6970 IF I=2 THEN DÉ(I)=DJ (1) 

6980 DT(I)=DH(I)+(GD(I,1)+GNCI, 2) +GNCI, 5) +GNCI,4)+ 
GN(I,5))#EJ (1) 

8990 GOTO 7100 

7000 IF I=2 THEN DÉCI)=DJ (I) 

7@10 DT(I)=DH CI) +(GNCI, 1) +GNCI, 2) +GNCI, 2%) +GN(I,4)+ 
GN(I,5))*EJ(1) 

7020 GOTO 7100 

7100 IF X=0 OR X=L(I) THEN DT(I)=0 

7120 DTCI)=INT (DT (I) #100000+. 200005) / 1GAAGQ 

7150 PRINTSFC.(8) "X="XSPC(S) "Fx="DT (1) 

7140 PRINTSPC CB) Mme 
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7145 NEXT X :  NEXT I 

7150 FOR Il TO 

7155 EX(I)æeQ 2 EVCTI)=Q 2:ES(l1)=0 
7185 EFCI)eQ 5 MFCI)=Q 2: MQCT)=0Q 
7170 TL( TSCI)=Q :NEXT I 
7175 

. GOTO 1@@00@ 


FRINT 5 FRINT 


a FOR Tæi TO 


FRINT'ESRRE No "I 

FRINT 3 FRINT 
FRINT'COURLE "32 INPUT CL CT) 
ERINT 3 FKINT 


A FRINT'ABSCISSE";: INFUT 44(CT) 


7Q FRINT 5  FRINT 


REM TEST DE VALIDITE DE 44 
IF A4CT) SL CI) OR À4CI)EQ THEN FRINT'ERREUR" 
IF A4 CT) SL CI) OR A4CT)EQG THEN 7260 


) NEXT L 2 PRINT : PRINT 


FRINTSPC (14) "COUFLE" 
PRINTSPC(14) "azmesmmsmn 
FRINT 3 FRINT 


43 FOR Tel TO € 









7570 





PRINT 3  FRINT 
FRINTSFC(8) "BARRE No "I 
PRINTSPE (8) Mu 


= 60 FAINT 3  FKRINT 


FRINTSFE (6) "CQUFLE = "CL CTI) 


A PRINT 4  FRINT 


FRINTSFC (8) "ABSCISSE ="A4 (CI) 

FRINT 3 PRINT 
PRINESPRO(BIETS ESS SS SSSR SES REIN 

NEXT I 

FOR Izi TO € 

ICCI)=6xIX (I) 

LY(CI)=(L(I)-A4(T))"2 

E7 CL) CL (I) KL CI)KCE EKLY CI) /L OI) Ne nv 
ES CI) #CL CT) KL CT) /IC CI) K(1-ERAA4 CT) TE /L CI)" 
NEXT I 

REM MOMENT SUR AFFUT E 

E4=- x (HS (1) +47 (2) ) /S 

GOSUE 80@@ 


3 REM MOMENTS & EFF, TRANCHANTS 


FOR I=l TO 2% 
FRINT 5  FRINT 
FRINTSPFC C2) "BARRE No "I 
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F4 FRINTSFC CE) Mere “ 

F5S0 FRINT 3: PRINT 

760 FOR X=@ TO L(I) STEF @.ZxL(TI) 

F7870Q IF Xe: AND X£=A4(T) THEN 7599 

7500 IF X=:A4(I) AND X£xL (I) THEN 7640 
73590 MMCT)=-CLCI)&X/LCI)+E4xX/L CI) 

F7&1@ T4(I)=-CL(I)/LCI)+E4/L(I) 

FERA IFISETHENMM(I)æ-CL CT) #X/L(T)+E4#(L(I)-X)/L(CI) 
7&ËQ IF I=Z THENT4(I)=-CL (I) /L(I)-E4/L CT) 
7855 GOTO 7700 

786848 MMCI)= CLCI)#(LCT)-X) /L(I)+E4KX/L CT) 
7854 T4CI)=-CL (TI) /L CI) +E4/L (CT) 

7660 IF I=? THEN MMCI)= CLCI)æ(LCI)-X) /LCT)+E4% CL 
I)-X)/L CT) 

768Q IF 1432 THENT4(I)=-CL(T)/LCI)-E4/L CT) 
77@0R MMCI)=INT(MMCI)#1000+. 2005) / 1000 

7710 TA4CI)=INT(T4(I) #1000+.0@08S5) / 1000 

7720 FRINTSEC (2) "X="XSFC (1) "Mx= "MM CT) SFC (C1) 
MTHæUT4 CT) 

7750 PRINTSPC (2) Men oo 
7740 NEXT X x:  NEXT I 5 WAIT 5Q0Q 

7747 FOR Isl TO € 

7744 EFCI)=E7 (IT) K#IX (TI) 

7746 ES CI) =EG CT) K#IX CT) 

7748 WECI) CL CI) /L CT) 

773@Q Wi{(I)=-CL(T)/L CT) 

7732 NEXT I 

7754 FOR Iei TO € 

7756 VG(I)=Wi1 (CT) 

7738 VOCT)=WE CT) 

77&@ NEXT I 

7782 MB=E4 

7784 GOSUR 8:00 

7770 GOSUR 908 

7775 FRINT :  FRINT 

777à REM CALCUL DES FLECHES 

7777 FOR Isi TO € 

7778 FRINT os  FRINT 

7779 FRINTSFC (C8) "BARRE No MT 

77814 PRINTSPE (8) Mess 

7783 FRINT 5  FRINT 

7786 EF (I) #L CI) T2/ C6KkEY#TX CT) ) 

7788 EJ(T)=EE CI) xL (CT) 

2790 CF CI) #CL CI) / COKEY#TX(T)) 

7795 FOR XeQ TO L(I) STEF @.Z2#L (TI) 

7BAA EX CI)æCCLECI)-X) /LCT)-CCLCT)-X) /LCT)) TE) KEA 





98 


7eR% 
7804 
7806 


CEXCI)æ=(X/LCT)-CKX/L (CT) ) "T3 KE 4 
ND (I) CT) #CX CT) 
Ni CT) I) #EX CT) 








"7810 IF X A AND XémA4(T) THEN 78270 
7815 


CL)à 
7840 





aQRQ 
04 


aE60 
8440 
8450 
E4 (7 
8450 
64 60 
8484 VE 


6495 
gs10 








a, UB CT) 


OO NEXT X x NE 








IF X 44 CT) AND X£#L (I) THEN 7860 

IF I&z THEN ND(T) &NJ CT) 

Li CL) COX VL CT) Xe Cékf4 CT) -TkAA4 CT) TE /L CT) -ENL 
Ù 

LIX CT) æND CT) +CF CI) #08 CT) 

GOT 7900 

LF Te 








CCRHL CD) 4 xA4 CT) BAL CTI D EXEXUS/L CT) TK 


LV à 
FA 





UX CI) =ND CD) CF CL) #UE CL) 

GOT 7900 

UIX CT) = TNT CUX CT) #1 0000 0@+. BAG) / 170000 
FRÉINTSFC CR) MX MX GR CE) Fu MUIX CT) 

F F* I N au ; € {3 ) Pan né ts ae rm 0 dome rie 6 sue cn eu ms so rence NE 












TI 


E4=0Q 3 FOR Tel TO 2 


pee : T4CI)=Q 


FF (I)=@ EST) =0Q 
TI 









FRINT cs F'FCTNT 
LARGE 


FF | RINT 
FRINTSFC (2) "MOMENTS ET EFF, TRANCHANTE" 
F: FR l NH UE C SF C { el ) DU sus enies sanie tro. a sons . uns crane cotes ones om 060 m0 mn cons LU 
F 5 PRINT 5  FKRINT 
















[NI 5 FRINT 
ACTIONS ET ROTATIONS" 


5 PRINT à PRINT 
I=1 TO 3 

CL) #MB/2+KP CI) #52 (D) 
51 CI) #ME+ *S2 (1) 
CI) #MB/2+ES (I) #82 (1) 










IF Ie 
NEXT TI 
FOR Tzl TO LCI) 

VE CTI INT (VC CT) #1@@R+, GGGS) /14Q0 
VA CI) TNT VA CL) El O@Q+, MARS)" 1 PEN 
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8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8650 
8640 
8650 
8660 
8680 
8690 
8700 
8710 
8720 
87%0 
8800 
9000 
9005 
9010 
9020 
9050 
9060 
10000 
10020 
10048 
10050 
10100 
12200 
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VELI)=INT(VE(T)#+1000+. 0005) /100G04 
RACI)=INT(RA(I)#1000000+. G00AAGS) / 1P0GUBGQ 
RE CI) =INT(REB(I) #+1000000+. AUAQGAS) / 1A7AADQ 
RC CI) =INT (RC CID k* 1000000 +. ARGBAGUOQES) / 1000720 
NEXT I 
FRINTSFC (8) "REACTION EN 8 ="VA (1) 
FRINT 3 FRINT 

FRINTSFC (8) "REACTION EN B æ"VKH(1) 
FRINT : FRINT 
FRINTSFC(8) "REACTION EN CO æ"VC Ca) 
PRINTSPE (8) Mme er me 
FRINT 3: FRINT 
FRINTSFC(8) "ROTATION EN À ="KA(1) 
FRINT 3 FRINT : KKH(1)=-REB(1) 
FRINTSFEC (8) "ROTATION EN & ="KKR(1) 
FRIN” : FRINT 3: ROCH) =-RÇ CE) 
FRINTSPC(8) "ROTATION EN C ="KC(2) 
PRINTSRC 8) og a ne e 
WAIT 408  : RETURN 
FRINT 3: FRINT : FRINT 
FRINTSFC (8) "DEFORMATIONS" 
FRINTSPE (8) à 
FRINT 3: FRINT : FRINT 
RETURN 
REM KEFRISE DU FROGRAMME 

FRINT'AUTRE CAS DE CHARGE O=1 N=Q'"::INFUT CY 
IF CY:1 OK CY£QA THEN 108000 

IF CY=i THEN 950 ELSE 10050 

FRINT 3 FRINT 

FRINTSFC(S) "'xkkkkeexmMe x FIN HR UE! 
END 


POUTRE CONTINUE DE DEUX A CINQ TRAVÉES ÉGALES 


Ce programme calcule : 


— les moments fléchissants 
— les efforts tranchants 
— les réactions d’appuis, 
pour le cas de charge uniformément répartie. 


EXEMPLE 
À T1 BR 1 © 
A 1 B 2 C 1 D 
Ai - B 2 C 3 D 2 ee 1 F 


Toutes les travées sont égales : 5,00 m 
NOTA : La charge unif. répartie : 500 daN/m 
sur toutes les travées et sur chaque poutre 
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FOUTRE. CONTINUE : REACT,#% 





4 








& À à TRAVEES 


RENE DONNEES dx 









NOMBRE DE TRAVEES 
| LA TR 





1 


aa 





HOME AE EME HE HE NE MEME AE HE AE NE DEN MDENE E 


4% MOMENTE #4 









AMEN HEAR ME NE AE ME EME DE NE AGEN 


+ MOMENT 





HE DONNEES der 


TRAVE 
Li TRAV 





NOMBRE 









HE OM CREME MM ME MEME CHECM M RE ECM NE EE M JE NE 
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k% MOMENTS 4 





EEE EX FT ON  xeun ee n de 
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5. CLS #5 FRINT 5 FRINT: GOTOIG 
4 REM PROG, FCONTIERO/8% 

 REM FOUTRES CONT,. Z-5 TRAVEES 

é REM EGALES CHÉRGE UNTF, REFARTIE 
7 FRINT'ERREUR" ss WAIT £@@  : FRINT 
8 REM UNITÉS HOMOGENES 

19 INFUT "NOMBRE DE TRAVEES" 

LE FRINT 3 FRINT 

LS IF ONSS OK NZ THEN 7 

INFUT "PFORTEE DE LA TRAVEE®S TV 
Jo PFRINT 3 FKINT 

INPUT CCHARGE UNTF, REF, "3 UK 

: FRINT 5  FRINT 

CHEUIFORE TN 

CTI TU 

IFONSS OR NEZ THEN 7 

FF THEN 184 

IF THEN 158 

PR IF Nxdg THEN #20 

EG IF NeS THEN 408 

188 Here 1 BExkCH 








| T1A=RA 
TE, 625CT 
5OTO TO80 
ME 2, 1#CH 
M1=@, DEXCH 
-Q. DTS+CH 
RA=@. 4xCT 
TiA=FA 

RE 1. LKCT 
TEi=-0, 6KkCT 
TBCs-0, SCT 
210 GOTO 2000 
220 Mi=@,@7%CH 
230 MP=0, 0E7*CH 
240 ME=-0. 107%CH 
250 MC=-0@.07*CH 
260 RAsQ. E9EKCT 
275 RC=0.929%CT 
280 TiA=RA 

300 REs1,142xCT 
320 TEis=-0. 607%CT 
340 TRE=0. S36%CT 
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HOQ TO 0, 4&HkCT 
290 GOTO 2000 
4 Mi. 478xCH 
410 Mi, QTExCH 
HA Mis. Q46xCH 
AO ME 0, 1 Q05%CH 
440 Ms, @79%xCH 
SO RôeQ. TPEKCT 
470 TLA=RA 
490 RB=1.12Z24C0T 
iQ TRlEe-0, 6GEKCT 
MIO TERrQ. SLékCT 
D TCPæ-Q, 474#0T 
; A. SxCT 
Q. P74KCT 
1A FARINT x MOMENTS #x" 
CAT, FA Ï N T DEEE . 
@ FARINT 5 FRI 
1 INT OM OM 
ERINT 3 FFINT 




























INT 5  FEINT 
IF Ne THEN EG 
FRINT'ME= "ME 
PRINT 5 FRINT 
IF Nz% THEN 27500 
FRINT'MC= "MC 
FRINT + FRINT 
Ne THEN 2540 
ENTUMESUME 
PRINT 5 FRINT 
IF Nz5 THEN 
PRINT" 
ÉRINT + 
ENT "ue 
T NT CLS 
INT 
CINT'RÉ = UR 
PRINT 5 FRINT 
INT'RE = MRE 
INT 5 FRINT 
PRINT'T 4 RA 
ENT 2 FRINT 
FRINT'TEI= UTE 
FRINT 5 FRINT 
EG IF Ne? TMEN 2710 
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& PRINT # PF 








2600 
26104 
2908 
QG 
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FRINT'TER= "T2 
IF Neï THEN 2710 


à FRINT Os PRINT 


FRINTORC = "RC 
FRINT 2  FRINT 


FRINT'TIC= "TC 
5 PRINT : PRINT 


IF Ne4 THEN 2710 
FRINT'TECæ TE 
FRUINT Mas 





INT WAIT 440 
FRINT'NOUVERAU CALCUL, OUT #1, NÜNEQ"S 
INPUT ZY 

IF ZV£5:0Q THEN € 

FRINT 

FRINT 

FRINT "exam FT M xex ee de x ll 
END 





POUTRES CANTILEVERS DE DEUX A CINQ TRAVÉES ÉGALES 


Ce programme calcule : 


— les moments fléchissants 
— les efforts tranchants 
— les réactions d’appuis 


— les abscisses des points d’articulations, pour le cas de charge 
uniformément répartie. 


EXEMPLE 


a a 
EE — MODÈLE 3.1 
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AS Bi 2 ét DEP ONE à 


a b b a 
a MODÈLE 54 
F 


a by 2 k F4 
MODÈLE 52 
À 1 8 2 C 3 D 4 E 5 


. Travées égales : 5,00 m 
NOTA :. La charge unif. répartie : 500 daN/m 
sur toutes les travées et sur chaque poutre 


FOUTRE  CANTILEVER 












E À à TRÂAVEI 


ROME DONNE 








HN de ee DONNE 





ME JE ME JE MEN MOMIE 


FE 





MH EME EE EE ME M DE HE ME ES AE VE EEE 


DHEA HE NE DEMANDE MEME EE EN MEME EE EE 
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MMM ME EE JE 





é PACUSETETES Les 
ces F Fi PAS ELEL SN el 
A. eee Les 
LA Æ 








LINTF, REFARTIE ei 


HE M NH NH M EEE EEE EE 





SD HAE 
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4 CLS #5. FRINT 

3 KREM FOUTRES CANTILEVERS 5 TRAV, 
BEM FÉCGRAMME  MFCANTT 1 

EM UNITÉS HOMOGÈNE 

REM CHÈGE UNTFS RE 

GOT #6 

C À 

INFUT. PNQUVE AL . 1 NONE=G" 3 Y 


















IF Ye THEN SG2Q 
FRINT 5 FRINT 
1 DE TRÂVE 
fs THEN EG 
"RINT 
CPORTEE DE LA TRAVEE’" SL 
FRINT 
IT "CHARGE UNTF . REF, "SUR 
5 FRINT 




















LEE 
re) 


é ff 
a 
sa 


LG P 








1, BeéwCr 
ñ, Gé CH 


197 
208 


GIFKUT 
1716#L 
1 


PRINT 5  FRINT 
FRINTUMOMENTÉS. &  REACTIONS 
SG FRINT 5 FKRINT 

AB IF NE EN 1480 

41 IF KN 
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4EQ IF Need THEN 1480 

AG IF NeS THEN 1600 

ARE GOTO 440 

AS N=Q 

44Q IF  G£sQ THEN 1@@@ 
PRINT MS TRAVERS #4" 

FRINT ; FECINT 

PRINT "MLEeMEEM EEE MI 

FRINTOUERS 5 

LA4A FRINT'ARRE "EI 

1A4S FRINT 4 FRINT 

LARGE FRINTODIST, ARTI(GS a sm "A 

1 f és [M] F* F Ï N] “T " F F: I N T Es os mure ns sr sm ve esios one ous nos D 

LR&Z PRINT 5 FRINT 

1QSS IF NES THEN 5008 

11840 ENT TRAVERS 

L1RS FARINT 

| [NTM 




























t( 4 
F'ECINT 















INT" 
INT 5 
INT'DIST. ARTIC. € = "C 

É N “f. , à etes osote cstée saut etre ones 


N 


1 +60 
1474 
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1680 
1é7@ 
1680 
1698 
1700 
1705 
1718 
1720 
1750 
1748 
1750 
1770 
1775 
1780 
1798 
1emû 
19aû 
5GQG 
SA1 
SQ15 
5O2@ 
SQEA 
SOS 
SEA 


Sao (A 
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FRINT'RD="D4 
FRINT'RES="C4 

FRINT 3  FRINT 
FRINT'DIST, ARTIC. & 
FPRINT'DIST. AKTIC. Bb VE 
FRINT'DIST, ARTIC, c "E 

PRINT. 5° PRINT Essen 
PRINT 4 FRINT 

IF Ne4 THEN S5@@G 

FRINT'S TRAVEES MODEL 5,1 %%3%%4%4" 
FRINT 5  FRINT 


nu D 


Ho Hoi 


à PRINT'MI=MS= "M2 


FRINTIMESME=MCS=ME=MDEMA4z "ME 
FRINT'RASKRF= "CA 

FRINT'RESRE: !"D4 

FRINTUREC=RDE "HS 

FRINT 4  FRINT 

FPRINT'DIST. ARTIC, a = "E 
FRINT'DIST, ARTIC, ba "F 

FRINT ne. DÉRINT ressent 
FRINT 5  FRINT 

FRINT"'S TRAVEES MODEL S,2 xxx" 
FRINT 5 FRINT 
FRINTIMISMRSMES=MEEE MI 
FPRINT'ME=M4= "MS 

PRINT IMCSMESMDE ME 
FRINTURASREE "AT 

FRINT'ERERES"FA4 

FRINT'RC=RD="GS 

FRINT 5  FRINT 

FRINT'DIST, ARTIC, a = "D 
FRINT'DIST. ARTIC, bæ "E 

FRINT 2. PRINT ER SERRE seT 
FRINT 5 FRINT 

INPUT "AUTRE CAS QUI=1 NONEQUSE 
IF ESS THEN 1€ 

FRINT 5 FRINT 

INPUT "TOUS LES CAS QUI=1 NON=Q"S 0 
IF GA THEN 455 

FRINT 5 FRINT 

FAINT t'xredemiende [OT N KKEHKIENRRXX 
END 


POUTRE CIRCULAIRE FERMÉE 


Ce programme permet de calculer une poutre circulaire fermée 
en caisson ayant de trois à dix appuis. 

On peut calculer les sollicitations suivantes : 

— le moment fléchissant sur appuis 

— le moment fléchissant en travée 

— le moment de torsion, 


pour le cas de charge uniformément répartie. 


= 


Les données à introduire sont inscrites dans le listing (de 480 
à 515). 


EXEMPLE 






FQOUTRE 


Mc Ine RERNEE 
MENU X DONNEES 36e dede eee 
DIAMETRE DE LA FOUTRE (MH)z1i@ 
NOMERE D 'AFFUTS = 
CHARGE UNIF,REF CdaN/M)  #=2000 
EH HE HE DE HE NE AE DEA EH EH EE MEME EEE DEEE DEEE 

HE JE MEME ME RESULTATS eee dede dede JE NE de 

MOMENT FLEXITON AFFUIS (CdaNd)e-6759, 687 

MOMENT FLEXION TRAVEE CdaNM)=%447,986é 

MOMENT MAX. TORSION CdaNM) 28728, 7354 

DISTANCE ENTRE AFFUIS (M) rs. 20 

EE VEN HAE DE HE DEN AE REA ME NE EN HENE DEEE NE DEEE NME EE 
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14 REM FROGRAMME "POUTRE CTRCULAIRE" 
20 KREM SECTION EN CAISSON 

QG REM FOUTRE FERMEE SUR % À 18 GFFUTS 
2S REM EQUIDISTANTS 

40 REM "FECIRC" ERO/SS 

45 REM UNITES: daN M RADIANS 

30 REM 1 CAS DE CHARGE: UNIF. REFARTIE 
1800 CLS : FRINT: FRINT 

1EQ GOT( a 

148 FCINT:FARINT 

FRINT'ERREUR NO" 

FRINT:FRINT 

CRINT'NOMBRE D'AFFUIS "3 

INFUT ON 

FÉINTs FRINT 

REM ON DOIT ETRE UN NOMBRE ENTIER 

i REM VOIR 26@@ 

NE TNT ON) 5 PRINT: FRINT 

IF N:10 OK NES THEN 168 
FÉINT'DIAMETRE DE LA FOUTRE (Mi; 
INFUT D :R=D/2 

PRINT: FRINT 

REM L'ANGLE ALFA AU CENTRE EN RAD 
BF=FT /N 
FRINTs FRINT 
4H FAINTICHARGE 
480 INFUT F 
460 FRINTEFC 
4894 FRINT 
4 FRINTEFE( 
RINT 
FRINTSF ) "NOMBRE D'AFFUTS UN 
FRINT [NT 

1 FRINTSFC CE) CHARGE UNTFSREF  CdaN/M) UF 
PRINT 5e FRINT 23 FKICT 

À LR) MM de Re A BEM RENE MODEM ENNEMI NE HE OMR NE NE 
EXION SUR ASFFUTS 

F: AN CAF) 2 

L''ARE TAN, ALFS 

nes Cd VEE) NE 
D CR CC) - TN (DC) 
REM MOMENT DE FLEXION EN TRAVEE 
MCSFERCCEX CAF Z SIN CAF) —1) 

REP MOMENT MAX. TOR 
AT MT Pan e CES TN CE AFF 4 
él FARINT es PRINT es PRINT: MT: 





















(daN/M) "x 

FRINT 5 FARINT 

#% DONNEES exe de de eee 
T 

DE LA FOUTRE CM)" 




































IN CAF) ) 
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GA MTEINT MTL AGQ +, AU) /1R708 
INT ME L@QG +, DAS) / 14008 
INT OMR TL OGU+, ARE) / 100 
5 se PRINT 5 FRINT 2 FÉINT 
He HE MEME JE dE EE 1 















à MA 
: WATT 
FRINTSPC CE) Mae RESULTATS 
FECINTs FRTNT Se PRINT 8 FRTNTs PRINT 
FRINTSFE CI) MOMENT FLEXTON APPUIS "ME 
FÉINT 4 PRINT 5 FARINT 
FR IN 2 CH) "MOMENT FLEXION TRAVEE &°MC 
CINTS FRINTS FRTNTS PRINT 
FC C3) CMOMENT MAX, TORSION "MT 
INT: PRINT 2 PRINT 
TSFC C7 D Maegemaux FT ON xxx" 
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TIRANT 


Ce programme permet de calculer le moment fléchissant sur 
appuis et en travée pour trois cas de charges : uniformément répartie, 
charge concentrée au. milieu de la portée, et le cas des moments 


égaux aux extrémités du tirant. 


Le tirant est considéré comme ayant une grande longueur 


et une faible raideur. 


On remarque le calcul des fonctions hyperboliques dans le 


listing les lignes 300 à 420. 


Les données nécessaires sont inscrites dans le listing de la ligne 


100 à la ligne 210. 


EXEMPLE 
La section du tirant métallique est de 120X 120 mm. 
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TIRANT 


RICHE REX DONNEES déeéae ee dé de de Ne 


# 


LONGUEUR DU TIRANT (M) 15 
EFFORT DE TRACTION (danN) 150800 
MOMENT D'INERTIE (CMD) = 1728 
MOSULE YOUNG CdaN/CME) = 2100040 


KOHOROMOMO HE DE MEME OMOMOUE MM EEE EE MM JE EME MOMEEMEME E 


CHARGE UNIF, BEF, CdaN/M) = 115 


MOMENT FLEXION AUX AFFUIS =@ 
MOMENT FLEXITON EN TRÂVEE =176,864 


100 
120 
140 


1687 


187 
2a0 
210 
233 
240 
245 
250 
253 
260 
265 
270 
290 
290 
295 


300 


CHARGE FONCT. AU MILIEU CdaN)=1500 


MOMENT FLEXION AUX AFFUIS + 
MOMENT FLEXION EN TRAVEE #1166.%87 





MOM.EGAUX AUX EX°R. CdaNM) =1@00 


MOMENT FLEXION AUX &FFUIS =1000 
MOMENT FLEXION EN TRAVEE =-146.10@1 





REM CALCUL D'UN TIRANT DE GRANDE 

REM LONGUEUR ET FAIBLE KAIDEUR 

REM FROG, "TIR" ERO/SE 

REM 3 CAS DE CHARGES 

CLS : FRINT : FRINT 

INFUT "MODULE DE YOUNG CdaN/CM4)"3EY 
FRINT : FRINT 

INFUT "LONGUEUR DU TIRANT (fil 

FRINT : FRINT 

INFUT "MOMENT D'INERTIE (CM4)"2IXx 

FRINT 3 FRINT | 

INFUT CEFFORT DE TRACTION CdaN)"3N 

FRINT : FRINT : FARINT 
FRINTSPC (4) "kkkdexkiense DONNEES 44e eee! 
FRINT 3 FRINT D FRINT 
FRINTSFC (4) "LONGUEUR DU TIRANT (M) = ML 
FRINT : FRINT 

FRINTSFC (4) "EFFORT DE TRACTION (daN)=z "N 
FRINT : FRINT 

FRINTSFC (4) "MOMENT D'INERTIE (CM4) = MIX 
FRINT . : FRINT 

FRINTSFC C4) "36366 6626 RENE ME EME MH EME M DEEE DE DE HE MERE EE EX HE! 
WAIT 2Q@@ : FRINT 

EY=EY+#109"4 

IX=1X/10"8 

Z=GSOR (NKkLTR/ CAKEYXIX) ) 
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REM SINUS HYFERBOLIQUE DE 2 
SH=(EXF(Z2)-EXF(-2)) /2 

RENM COSINUS HYFERBOLIQUE DE 
IOQ CHeCEXF CZ) +EXPF(-Z))/E 

au ‘ TAN, HYF, DE Z 

RQ THESH/CH 

=Q(a PRINT 3  FRINT 2:  FRINT 
Se FRINTSFE(S)" CAS DE CHARGES :°" 


FN 








PRINT 2 PRINT +: PRINT 

FRINTSFC(8)" 1. CHARGE UNIF. REFARTIE" 
PRINT : PRINT 

FRINTSFC(8)" 2. CHARGE FONCT. AU MILIEU" 
PRINT +: PRINT 

FRINTSFE(8)" 3, MOMENT AUX EXTREMITES" 
66@ FRINT 2:  FRINT 

6BQ INFUT CY 3 PRINT : PRINT 

70Q IF CY:3 OR CY<1 THEN FRINT"'ERREUR" 

72@ FRINT : PRINT 

740 IF CY:# OR CY£1 THEN 500 

7SQ IF C\ THEN 1000 

770 IF CYe2 THEN 1500 

BAR IF CYe5 THEN 2000 

LOG PRINT 5 PRINT 2: FRINT 

1020 INPUT "CHARGE UNIF. REFARTE C'aN/M)":0 
1O4@ FRINT 3 PRINT 3  FRINT 

1050 REM MOM.SUR AFFUIS ET EN TRAVEE 

18060 
1080 MX=CKL"2x (CH 1) / CBKZTKCH) 
1100 PRINTSPC (4) "CHARGE UNIF. REP. (daN/M) = "@ 
1150 | esse. 

1140 
1160 
1170 
1180 
1200 
1500 
1520 
15404 
1560 
1570 














































5  FRINT 





SOUSFROG. EDITION DES RESULTATS 


RINT 5 FRINT 
"CHARGE FONCTUELLE AU MILIEU CdaN"sr 
5  FRINT 3 FRINT 


RE M MOMENT EN TRAVÉE 
4 h # (A4K7) 
2C (4) "CHARGE FONCT, AU MILIEU CdaN)e"F 


44) Mine ne ee nn ni mine mens me mn on mme eme mm mm mean 


FRINT 5 FRINT 








ES RESULTAT 


1660 
1700 
2000 
2AE0 
2040 
2050 
2060 
2100 
2120 
2140 
2150 
2184 
2160 
2180 
25300 
2810 
2460 
25970 
2600 
2620 
640 
:680 
2720 
FAQ 
Q20 
2040 
060 
2080 
100 
2200 


3270 


GOSUER 2500 
GOTO  :000 
PRINT 3  FKINT 3  FRINT 
INFUT  "MOMENTS EGAUX AUX EXTREMITES (daNM) "3m 
FRINT 5 FRINT | 
REM MOM. SUR AFFUIS ET TRÂVEE 
MM 5  MZ=-M/CH 


FRINTSFC (4) "MOM,EGAUX AUX EXTR, CdaNM) "M 
FRINTSEFC CA) Masse eme me de me me me 2 mn me me me me me me mme men M 
MR M : MC=MZ 


PRINT 3  FRINT : FRINT 

REM EDITION DES RESULTATS 

GOSUE 2500 

GOTQ  :G0û 

MF: [NT (MR*X1000+, 00085) /10@@ 

MC TNT (MC#1Q000+., AQAGES) / 1000 
FRINTSFC (4) "MOMENT FLEXION AUX AFFUIS "MR 
PRINT 5:  FRINT 

FRINTSFC (4) "MOMENT FLEXION EN TRAVEE  ="MC 
FRINT 5 FRINT 
FRINTSPE (4) Mans 
WAIT 400 3  FRINT 
RETURN 

CLS 4 PRINT 3 FKINT 

INFUT "AUTRE CAS DE CHARGE Oeil Ne@"s CA 
IF Câ1 OR CASQ THEN FRINT'ERKEUR" 

IF CAL OR CASQ THEN 3@2@ 

IF Câe1 THEN S00 

IF CA=Q THEN 2200 

FRINT 5  FRINT 

END 
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ORTIQUES 


PORTIQUE SIMPLE A TRAVERSE INCLINÉE 
ARTICULÉ A LA BASE 


Ce programme permet de calculer : 

— les moments fléchissants et les efforts tranchants en B et C. 

— les moments fléchissants en travée en chaque 1/5 de la portée. 
— les réactions d’appuis 

— les rotations en À, B, C, D. 

— la flèche à mi-travée 

— les déplacements des nœuds B et C. 


Les poteaux de ce type de portique peuvent avoir les inerties 
différentes. 

Il est possible de prendre en compte une dénivellation des 
assises des poteaux. 


EXEMPLE 500 daN/m 


Q 


6,00 
8,00 





A L 10,00 ee 


2500 daN 


200 daN —# 
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FORTIQUE ARTICULE 
À TRAVERSE INCLINEE 


UNITES M daN KADIANS 
Hé eee DONNEES #363xM eee 
MODULE YOUNG  (daN/CM2) =2100000 
FORTEE DU FORTIQUE (M)=10@ 
HAUT. FOTEAU À GAUCHE (M) =é 
HAUT, FOTEAU À DROITE (M)=8 
MOMENTS D'INERTIE (CM4) 3 

* TRAVERSE = 8:56 


* FOTEAU À GAUCHE : 


É 
ral 
ÿ 
pal 
Le] 


* FOTEAU À DROITE : 


il 
@ 
L4 
En 
EN 


DENT VELLATION (M) = 0@ 


DIFFERENCE NIVEAU (M) 


# 


HR ME HE DE HE HE HE DEN EEE DEMO DEEE HE DEDEEENEDEUENE 
CHARGE UNIF, REPARTIE =500 


MOMENT S 
MOMENT EN KB = -2294., 6052 
MOMENT EN CO = —-1I0%9.807% 
MOMENTS EN TRÂAVEE 





*X =Q Mx 2294, 8052 
X =7 Mx =1552.158 

X =4 Mx =7599,168 

X “6 Mx 7246, 178 

X =g Mx =1097.188 

X æ1@ Mx 510459, 707 


REACTION VERT. EN À =2500 
REACTION HORIZ.EN 4 =78%.475 
REACTION VERT, EN D =2508@ 
REACTION HORIZ.EN D =-2782%,476 


KOTATIONE 
ROTATION EN  & = -1,Q06E-0% 
ROTATION EN  B x 4,4E "0% 
ROTATION EN € = -5,89E-05 
ROTATION EN D = 3,.09E-G% 


DÉFORMATIONS 





FLECHE À 1/2 


TRAVERSE = ,.Q2029 
AC Qi 


MENT NCEUD FE 
EMENT NQEUD © Fe 








M: Q ME CN TS 





MOMENT EN E 
MOMENT EN C = 
MOMENTS EN TRE 
*X = Mx 





REACTIODONS 


-720 


734.941 


EACTION VERT. EN A 
tEACTION HORIZ.EN À 
EACTION VERT. EN D =720 
REACTION HORIZ.EN D =-475.06 





# 






nm 
Et 
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KROTATIUOUNS 
ROTATION EN & = .01S58 
ROTATION EN BE = 4,6SE-0% 
ROTATION EN C = 3,@8E-05 
ROTATION EN D = .@1175 


DEFOQRMATIONS 
FLECHE À 1/2 TRAVERSE = %.@3E-0% 
DEFLACEMENT NOEUD EF = .0708 
DEFLACEMENT NOEUD C .Q7G7 


hi 


EHARRE FONCT, ABREE EN C=2500 





MOMEN F 5 

MOMENT EN E = -9061.759 
MOMENT EN © = 7917.4654 
MOMENTS EN TRAVEE 
X Mx =-9061,759 
ES Mi =-5665,877 

—22769.994 

=1125,60a9 
My =4521.772 
Mx =7917, 654 





DC D KE CO D 





RE ACTIONS 
REÉACTION VERT, EN 4 =2000 
REACTION HORIZ.EN 4 =1510,29% 
REACTION VERT, EN D =-2000 
REACTION HORIZ.EN D #989,7@6 


ROÜOTATIUONS 


ROTATION EN À = .@520S 
ROTATION EN B = 9,69E-û0i 
ROTATION EN CC = 6,45E-0@% 
ROTATION EN D .« A2446 








il 


DEAR PRE 


FLECHE & 1/7 TRAVERSE = -4,24E-Û05 
DEFLACEMENT NOEUD KE = 41475 
DEFLACEMENT NOEUD C = ,1477 


RE OMC F I DERESSS SES) 


og REM FROGRAMME "CADI" ER0O/10/83/*x 
10 REM FORIQUE & TRAVERSE INCLINEE 
20 REM FOTEAUX DE HAUT. DIFF. ARTIC. 
20 REM 3 CAS DE CHARGES 

40 REM UNIF.REF. SUR TRAVERSE 

0 REM CH.FONCTUELLE EN TETE FOTEAUX 
6Q REM UNITES: L(M),IX(CM4) ,E(KHG/CM2) 


100 
120 
140 
160 
180 
200 
220 
240 
260 
280 
700 
20 
340 
760 
780 
400 
410 
420 
470 
440 
450 
485 
480 
486 
492 
200 
D20 
D2S 
927: 
Da 
D37 
240 
542 
D45 
peter”) 


555 


557 
559 


560 


CLS 3: FRINT:FRINT 

FRINT'MODULE DE YOUNG": 

INPUT EY 3: PRINT: PRINT 

FRINT "INERTIE TRAVERSE"; 

INPUT IS :FRINT:FRINT 

FRINT "INERTIE FOTEAU À GAUCHE"; 
INPUT I1 3 PRINT: PRINT 

FRINT "INERTIE PFOTEAU À DROITE"; 
INPUT IZ 2: PRINT: FRINT 

FRINT "FORTEE DU FORTIQUE"; 
INPUT Les PRINT: FRINT 

FRINT "HAUTEUR FOTEAU À GAUCHE"; 
INFUT HG : FRINT:PKRINT 

FRINT "HAUTEUR POTEAU À DROITE": 
INPUT HD 3: FRINT:FRINT 
FRINT'DENIV. À LA HASE O=1 N=0": 
INFUT DN 5: PRINT:FRINT 

DN=INT (DN) 

IF DNYIORDN£Q THEN FRINT'"'ERREUR" 
IF DN51 OK DN“O THEN 400 

IF DN=i THEN 480 

GOTO 520 

FRINT'DIFFERENCE HAUTEUR $ "3 
INFUT F 3: FRINT:FRINT 

VNEHD- (HG+F) 

GOTO S25 

F=HD-H6 

S=SQR (L*2+F2) 

N=HD /HG 

R=VN/HG 

H1=I5S*xHG/(I1#S) 

H2=1ZT#xHD/ (I2*56) 

E=2% (KH1+1)+N 

C=1+2xNx(1+K2) 

NIi=E+N*xC 

PRINT: FRINT:FRINT 

FRINTSEFC (6) "Me EEREUEDEMEME DE DE HE DE DEDE DE DE DE DE DE DEEE DE DEEE 
PRINT: FRINT 

FRINTSFC(6) "MODULE YOUNG (EHg/emz) =" EY 
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565 
570 
575 
58? 
590 
595 
00 
605 
610 
615 
620 
825 
630 
625 
640 
850 
655 
665 
690 
697 
695 
700 
720 
720 
735 
740 
742 
745 
750 
800 
820 
840 
860 
880 
900 
920 
950 
970 
980 
1000 
1020 
1500 
1520 
1540 
1560 
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PRINT: PRINT 
FRINTSPC (6) "PORTEE DU FORTIQUE (m)="L 
PRINT: PRINT 

FRINTSFC (6) "HAUT. FOTEAU À GAUCHE (m)="HG 
PRINT: FRINT 

FRINTSFC (6) “HAUT. FOTEAU À DROITE (m)="HD 
PRINT: PRINT 

FRINTSFC (6) "MOMENTS D'INERTIE (cm4) :" 
PRINT: FPRINTSFC (10) "*x TRAVERSE 

PRINT: PRINTSPC(10)"*x FOTEAU A GAUCHE 
FRINT:FPRINTSFC(1@)"* POTEAU À DROITE 
PRINT: PRINT : WAIT 400 


nIZ 
"Ti 


“12 


WoW H 


FRINTSFE (6) "DENIVELLATION = MVN 
FRINT:FRINT 
FRINTSFC(6)"DIFFERENCE NIVEAU #f = !"F 


FRINT:FRINT 
FRINTSFC (6) "4326036666 DE DE DE DE DE HE DE DE DEEE NEED DE DE DEN EME DE DEEE 
FRINT:PRINT:FRINT 

12=12/10"8 : I3=17:/10"8 

11=11/10"8 : EY=EY*10Q"4 

FRINT:FRINT:FRINT 
GOTO 800 

FRINT "ERREUR !! ":FKRINT 
FRINT:GO0OTO 800 

CLS 2:FRINT:FRINT 

INFUT "AUTRES CAS DE CH'RGES O=1 N=0"; AY 
AY=INT(AY): IF AY:1 OR AY<Q THEN 720 

IF AY=0 THEN 10000 
FRINT:FRINT:FRINT 
FRINTSFC(14)"CAS DE CHARGES :" 
PRINT: FRINT:PFKRINT 
FRINTSFC(8) "1. CHARGE UNIF.REF. /TRAVERSE" 
FRINT:FRINT 
FRINTSFC(8)"2. CH. FONCT. HORIZ. EN B —---5:" :PRIN 
FRINTSFC(8)"Z. CH. FONCT. HORIZ. EN C <&---" 
INFUT CH :FRINT:FRINT 
CH=INT (CH) 

IF CHE OK CH£i THEN 720 

IF CH=1i THEN 1500 

IF CH=Z THEN 5000 

IF CH=T THEN 4000 

FRINT:PRINT:PKRINT 

FRINT'CHARGE UNIF. REF, /TRAVERSE": 

INFUT Q 

FRINT:FRINT 


1590 
1600 
1620 
1640 
1660 
1680 
1700 
1770 
1800 
18:0 
1840 
1870 
1880 
1890 
1900 
1910 
1920 
1950 
1950 
1960 
1970 
1980 
1990 
2000 
z@1@ 
20%0 
2050 
2055 
2027 
2040 
2045 
2ASQ 
2060 
2070 
275 
2080 
2084 
2090 
2100@ 
2120 
000 
070 
3040 
30640 
080 
5100 


GH=G*L"2/4 

GR=O#L"2/2 

DR=GH : GL=GR 

Z= (GH+NY#DR) /N1 

Mi=-Z :  M2=-Nx7 
Vi=(GR-R#2) /L 

V2= (GL+R#Z) /L 

Hi=Z/HG:  H2=-H1 

ME=MI MC=M? 

VA=VI VD=V? 

HA=H1 :  HH=H2 

TZ= (2#M14M2) #L/ (6KEY*I3) 
TY=OHL®T/ (D4MEY#IT) 
TO=-M1#HG/ (2KEY*11) 

TW=- (DxMB4+M1) #L/ (GHEY#IT 
T9=-AES (M2) #HD/ (ZXEY*#12) 
T2=TY+TZ 

T1=T2-TO 

TE=TW-TY 

T4=T3-T9 

Dk=-M1#HG"2/ (É#EY#I 1) 
Di=T1xHG+DF. 
DJ=-AES (M2) xHD*2/ (bKEY#IZ) 
D2=HDXT4+DJ 

RA=TI : RETZ? 

RC=TZ :  RD=T4 

DE=D1 +:  DC=D2 
FLæ1/(Cb*EY*x17) 
FI=MLXFLE4S "2%. 175 
FReMRxFLES "2%, 775 
FieCnS"4x, 7125/ (24KEYXIT) 
FT=F1+F24FT 

FW=FT 

FRINT: PRINT: PRINT 
FRINTSFC (8) "CHARGE UNIF. REFARTIE ="Q 
FRINTSPC (8) à 
PRINT: PRINT: PRINT 

GOSUE 5000 

PRINT: PRINT: PRINT 

GOTO 735 

REM CAS DE CH.FONCT.HORIZ.EN E 
PRINT: FRINT: PRINT 
FRINT'CHARGE FONCT.HORIZ.EN EH ----5"; 
INFUT PG :FRINT:FRINT 
HE=-PGANXC/NI 

H4=-FGXE/N1 
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Vie (PGKkHG+H4#VN) /L 


V4=-VE 
MS=-HEXHG 
M4=H4#%HD 

HASHE  :  HH=H4 
VA=VZ :  VD=V4 
ME=MZ :  MC=M4 


Té= CZXMI+MA4) #L/(C6KEYXIS) 
TI=-MExHG/(C2KEY#11) 

TS=Té-TI 

D7=-MIXxHG"2/ CbkEYXI 1) 

DE=HGXxTS+D7 

T8=- (ME+2#M4) #L/ (GKEY#IT) 
TJ=-ARS (M4) #*HD/ (2#+EY*12) 

T7=T8-TJ 

D8=-M4#HD"2/ (&KkEY#I2) 

D4=HD*xT7-D8 

RA=TS :  RE=Té 

RC=T8 RD=T7 

DE=DTF :  DC=DA4 

FLei/(6*xEYxIT) 

FA4=MIxFLES "2x, 775 

FS=M4#xFL#S "2%, 175 

FG=F4+FS 

FW=FG 

PRINT: PRINT: FRINT 

FRINTSFC(8) "CHARGE PFONCT.HORIZ.EN EH="FG 
FENTE SRE (BITES SSSR RES SSSSSSSSSÉSS SR SSSR Se L 
PRINT: PRINT: FRINT 

GOSUE 5000 

FRINT:FRINT 

GOTO 725 

REM CAS DE CH.FONCT.HORIZ EN C 

FRINT: FRINT: FRINT 

FRINT'CHARGE FONCT,. HORIZ EN OC £----"; 
INPUT FD 2: PRINT: FRINT 


HS=FDXNxC/N1 
H&=FD+XE/N1 

Vé=- (FD#HD-HS5%#VN) /L 
VS=-Vé 

MS=-H5#HG 

Mé=H6*xHD 

HASHS 3 HH=H6 
VA=VS 3  VD=Vé 
ME=MS 3  MC=M6 


4250 
4270 
4500 
L'ART 

4540 
4560 
4:80 
4400 
4420 
4440 
4500 
4520 
4540 
4570 
4600 
4620 
4640 
46860 
4700 
4720 
4740 
4770 
4800 
4820 
4840 
2000 
020 
9040 
2050 
5060 
3090 
095 
2100 
“120 
D1:0 
als 
“140 
2160 
9190 
D200 
D220 
0240 
J260 
L:00 
Di20 


9240 


TG=(2#M6G+MS5) #L/(C6KkEY*xIT) 

TLe- (24MS4+M6) #L/ CGXEY#ITS) 
TX=-M6éxHD/ C2KEY#I2) 
TU=-ABS (M5) #H6/ (2x+EYKTI1) 
TE=TL-TU 

TMETG-TX 

D9=-MS#HG"2/ (6#EY#TI1) 
DO=-MéKkHDTE/ C&KkEY#I 2) 
G=HGXxTE-D9 

Dé=HDxTM+D@ 

RATE 5 RE=TL 

RCETG 5  RD=TNM 

DE=DS :  DC=Dé6 

FlL=l/ (C6kEYxI5) 
F6=MS#FLASTEX, 575 
F7=M6GxFLExST EX, T75 

FR=F6+F7 

FW=FR 

FRINT: FRINT:FRINT 

FRINTSFC(8) "CHARGE FONCT.HORIZ EN C='"FD 
FRINTSPFE (CO) Mes SSSR ee M à 
PRINT: PRINT: PRINT 

GOSUER 5000 

FRINT: FRINT: FRINT 

GOTO 725 
FRINTSFCOSD"MOMENTS " 
FPRINTSFC(IS) "er esememesess 
FRINT: PRINT: PRINT: FRINT 
ME=INT (MB#1000+.005) /1000 
FRINTSFC(8) "MOMENT EN KH = "ME 
FRINT:FRINT 

MC=INT (NC+x+1000+.005) /1000 
FRINTSFC(8) "MOMENT EN CO = "MC 
FRINT:FRINT : WAIT :00 
FRINTSFC (8) "MOMENTS EN TRAVEE" 
FRINT:FRINT 

FOR X=Q TQ L STEF .2%L 

IF CHel THEN SE 

IF CH=? THEN 5200 

IF CHEZ. THEN 5400 

MT=COXXX (L-X) /2+(L-X) kMB/L+XKkMC/L 
M=MT 

GOTO 5440 

MG: (L--X) #M3/L+X#M4/L 

M=MG 

GOTO 5440 
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400 
o420 
0440 
4608 
480 
5490 
2300 
gu1i0 
Soeû 
du s0 


ETERUNEZ 
DNA ENCRES | 


040 
060 
J/0 
99970 
608 
J610 
5620 
5640 
“650 
2660 
2700 
6000 
6028 
6040 
6060 
6080 
6100 
6120 
614@ 
6160 
6180 
6190 
6200 
6220 
6240 
6260 
6280 

700 
63520 
6540 
6500 
6510 
6520 

90 


65535 
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MD=X*xM6/L+(L-X) *xMS5/L. 


M=MD 
MINT (Mx1220+. 005) / 1000 
PRINTSFPC(E)"X ="XSPC(S) "MX ="M 
PRINT : NEXT X :WAIT 400 


PRINT: FRINT: FRINT 3: FRINT 
PRINTSFCCIDOR E ACTIONS " 
FRINT:FRINT 

PRINTSPE (12) " 
FRINT: PRINT: FRINT: FRINT 

VA=INT (VA*1000+.005) /1000 
FRINTSFC(S8) "REACTION VERT. EN À ="VA 
FRINT:FRINT 

HA=INT (H&x1000+.005) /1R0G 
FRINTSFE (8) "REACTION HORIZ.EN À ='"HA 
FRINT:FRINT 

VD=INT (VD*x1000+.005)/1000 
FRINTSFC(8) "REACTION VERT. EN D ="VD 
FRINT: FRINT 

HH=INT C(HH#1000+. 005) /1800 
FRINTSFC(8) "REACTION HORIZ.EN D ="HH 
PRINT: FRINT: PRINT: FRINT: WAIT400 
FRINTSFCOID)'K OTATIONS " 
FRINT: FRINT 

FRINTSPEC (AB) " 
PRINT: FRINT:FRINT 5 FRINT 
RA=INT(RA*100000+.02001)/100000 
RE=INT(REB*100008+.A00001) /102000 
ROSINT (KC+100000+.00001)/100000 
RD=INT (RD*100000+.00001)/100000 
DE=INT(DE*10000+0.20005) / 12000 
DC=INT (DC+#10000+0.00005) /10000 
FWSINT(FW#1000+.001)/1000 
FRINTSFC(8) "ROTATION EN À = "RA 
FRINT: FRINT 


FRINTSFC(B) "ROTATION EN E = "RE 
PRINT: PRINT 
FRINTSFC (8) "ROTATION EN C = "RC 


FRINT:FRINT 

FRINTSFC(8) "ROTATION EN D = "RD 
PRINT: PRINT: PRINT: PRINT: WAIT T40 
FRINTSPC(15)" DEFORMATIONS " 

PRINT: FRINT 

FRINTSFE AE)" S 
FRINT:FRINT:FRINT 3: FRINT 
FRINTSPC (8) "FLECHE À 1/2 TRAVERSE. 


"FU 


8560 
6570 
6575 
6590 
6600 
3000 


PRINT: PRINT 


FRINTSPC (8) "DEFLACEMENT NOEUD KH = "DE 
FRINT: FRINT 
FRINTSFC (8) "DEFLACEMENT NOEUD C = "DC 


PRINT: FRINT:FRINT : WAIT 400 
RETURN 


10000 FRINT: FRINT: PRINT: FRINT 
10100 FRINTSFC (8) "ke FOI ON eee" 
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PORTIQUE SIMPLE A TRAVERSE INCLINÉE 
ENCASTRÉ A LA BASE 


Ce programme calcule les sollicitations et les déformations 
décrites antérieurement auxquelles s’ajoutent les moments d’encas- 
trement en A et D. 


EXEMPLE 


500 daN/m 





2500 


1200 — 
— daN 
daN 
[7 
[7 07 
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FORTIQUE ENCASTRE 
à TRAVERSE INCLINEE 


UNITÉS M daN RADIANS 
kERHERRERE DONNEES dde eee dede 
MODULE YOUNG  CdaN/CM) #21 2@0Q0 
FORTÉE DU FORTIQUE. CM) =1û 
HAUT POTEAU à GAUCHE (MD = 
HAUT, POTEAU à DROITE (M)=8 


MOMENTS D'INERTIE  CCM4) 5 





# TRAVERGE Ft 


% POTEAU À GAUCHE & 5790 





# FOTEAU à DROITE # 
DENTVELL. AT TON EM LS 
DIFFERENCE NIVEAU # EM) 
HE HE JE NE JE MERE HE NE AE ME EH AE EE DEEE EEE AE Xe 


PE] 









CHARGE UNIF 


M OÙ M 





MOMENT ENT 6 
MOMENT EN E 
MOMENT EN 

MEMENT ER 
MOMENTS. 
X «f 












ME 
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E à C 


REACTION VER 
REACTION HO 
REACTION VER 
REACTION HGR 


FE OT À 


ROTATION. EN 
ROTATION EN 
ROTATION EN 
ROTATION EN 


DEFOR 







JE À 1/2 
ENT 
ACEMENT 


FONCT 





TIONS 


T. EN À =2474,294 
IZ.EN À =é6e4,772 

T, EN D ' 
IZ.EN D = 





TIONS 


À *« @ 
Fo 





MAT TI CINS 


TRAVERSE = .G16%7 
NOEUD & = 
NOEUD C 





. HORIZ.EN H=1200 





MOMENT EN À = 


MOMENT EN E 
MOMENT EN C 
MOMENT EN D 
MOMENTS EN T 
X Mt 
LS MX 
: Ms 
M 


DE DE DE EE 5 








2504, 656 
180$. 094 
— 1587, 68T 
2159,741 
RAVEE 
1005. 094 
e1126, 836 
447, FRS 
A. 575 
909,128 


ER DE | 






Kk 1587, 685 





REACTION VERT, EN À =-515.8589 
REACTION HORIZLEN À =-7H 1, &2S 
REACTION VERT, EN D =215.858 
REACTION HORIZ.EN D =-468,7578 


KROTATIOGNS 


ROTATION EN À 


il 


@ 


ROTATION EN BR = 1,.92E-05 
ROTATION EN CC = 1,3E-05 


ROTATION EN D = 0 


DÉFORMATIONS 


FLECHE À 1/2 TRAVERSE = 7,7E-04 
.%166 
sPi6é 





DEFLACEMENT NOEUD EH É 
DEFLACEMENT NOEUD © 






N C=2500 


MOMENT GS 


MOMENT EN À = SE64, 661 
MOMENT EN EF z 5 

MOMENT EN © + 5507, 671 
MOMENT EN D = -4498, 428 
MOMENTS EN TRAVÉE 

X =@ Mx 57460, 61 

X My =-i4é, 058 
X 4 Me Rev 
*X “6 Mx =480,755 

X #8 M3 = 
X =10@ My 27507, 671 





RE À CT I O NS 
REACTION VERT. EN À =78%.8R:9 
REACTION HORIZ.EN À =1524,%1% 
REACTION VERT. EN D =-78%.04 
REACTION HORIZ.EN D =975,787 
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FE QOTATIGNS 


ROTATION EN À = @ 

ROTATION EN BB # -4,Q1E-@Q% 
FEOTATION EN Ce -3,72E- e 
ROTATION EN D = @ 





RÉPARER TONS 


HE À LE TRAVERSE # 1, 62E-@% 
LACEMENT NOEUD E = —,A546 
ACEMENT NCGEUD © = Dia 





OMS JDE EE CN F OI ON He HE HE DE JE ME ENe 


D/R/R% 
INCLINEE 









EN FÈTÉ FATE AUX 
DROITE 

RADI ANS 

1 5 E VOTE DONNEES 
NTSC C1) FORTIQUE ENCASTRE" 
FEÉINT 

um (1) "A TRAVERSE INCLONEE" 

F* ( { 1 A ) MR és ges aie dos ns vie nd mb met ads das me cas doc ms 

5 LFRINT 

FE C1G) "UNITÉS M da RADIANS" 

5 FRINT 

FCINT SPRINT 

i FRINT "MODULE DE YOUNG CdaN/CMa) "ts 

LRQ INPUT EY 2 FRINTs FRINT 

168 FRINT "INERTIE TRAVERSE  (CM4) "3 

180 INFEUT LE 8 PRINT: FRINT 

ï FRINT UINERTIE FOTEAU À GAUCHE (CCM4) "3 
Se INPUT T1 8 FARINT: FRINT 


M caN 
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240 FRINT "MINERTIE FOTEAU À DROITE (CM4)"; 
260 INPUT IS SPRINT: FRINT 

28@ FRINT "FORTEE DU FORTIQUE (M): 

200 INFUT Les PRINT: FRINT 

220 FRINT "HAUTEUR FOQTEAU À GAUCHE (M); 
340 INPUT HG 5 PRINT: FRINT 

260 FRINT "HAUTEUR FOTEAU. A DROITE M)"; 
290 INFUT HD 2 FRINTs FRINT 

4GQ FRINT'DENIV., À LA BASE (M) QUI=1 NON=Q"; 
41@ INPUT DN 3 FRINT:FRINT 

420 DNEÆINT (DN) 

45Q IF DNYIORDNEQ THEN FRINT'ERREUR" 

440 IF DN:1 OK DN<Q THEN 40G0@ 

ASQ IF DN=el THEN 480 

465 GOTO S20 

490 FRINT'DIFFERENCE HAUTETR + "3 

486 INFUT F3 FRINT: FRINT 

492 VNEHD- CHG+F) 

200 GOTO S2S 

De BE HD-HG 

Den Ge SQR CL'2+F 2) 

N=HD/HG 

JO FI=F/HG 

39 EBeITkHD/ (12*xS 

J27 Ki= A 

DA Rex (CÉLA+NTEREZ) 

A+ TL ENENE SENTE EUR 









Re CL I4ED) HOME LE DREZ 
Nez CRERRIT-OQURNIRERTE) / CEKNO) 
Se (RLKRI-OQRE TE) / CEkNO) 
46 Nix CRLKEFC2- 1) / CHENE) 
PRE RNA ANUS ACER AER 


4 NG= (NKE2KR1 HE 1) /NG 

ges PRINT: FRINT: FRINT 

S97 LPFRINTSFC (6) Mexx DONNEES 46464 de de! 
999 LFRINT : FRINT 6 

60 LFRINTSFC (6) "MODULE YOUNG CdaN/CMe)æ" EV 
cb LFRINT 

70 LFRINTSFC(é) CFORTEE DU FORTIQUE (M) æ"L 

79 LPFRINT 

SEE LPFRINTSFC (6) "HAUT, POTEAU À GAUCHE (M) ="HG 
90 LFRINT 

395 LFRINTSFC (6) "HAUT, FOTEALU À DROITE (M) "HD 
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LFRINT 
LFRINTSFC (6) "MOMENTS D'INERTIE (CMA4) 2" 


à LPFRINT:LPRINTSFC (10) "x TRAVERSE = MIS 
615 LPFRINT:LPRINTSFC (10) "+ FOTEAU À GAUCHE = "TI 
&EQ LFRINT:LFRINTSFC(10)"x FOTEAU À DROITE = "IE 
6ES LFRINT 
650 LFRINTSFE (6) "DENTVELLATION EM) = "VAN 
6 LFRINT 





LFRINTSFC(C&) "DIFFERENCE NIVEAU + CM) = UF 
LFRINT 3: FRINT 

LFRINTSFC C6) "46e He ee MEME DE DEEE DE DEEE DE DE DE DE DEEE NE EEE EE 
LFRINT: FRINT 3 FRINT 

lSet2/10"8 s Ti<1:/10"6 

T1=11/10"8 3 EY=EV#1@"4 





5 PRINT: FRINT: FRINT 


GÜTO QG 

PRINT "ERREUR UT 'S FRINT 
FRINT:GOÜTO 800 

REM REPRISE DU FAROGRAMME QU NON 
REM APRES CHAQUE CAS DE CHARGE 


) CLS 3: FRINT: FRINT 


INFUT "AUTRES CAS DE CHARGES Oeil Ne@"s AY 


2 AYS=INT(AY)s: IF AY:1 OK AYEQ THEN 720 


IF AY=Q THEN 10000 

FRINT: PRINT: FRINT 

PRINTSFC (14) "CAS DE CHARGES :" 

FRINT: FRINT: FRINT 

FRINTSFC (8) "1, CHARGE UNIF.REF, (TRAVERSE) " 
FRINT: FARINT 

PRINTSFC (CS) "2, CH. FONCT, HORIZ. EN B ---i" 
FRINT 3  FRINT 

FRINTSFC (CS) "US, CH. FONCT, HORIZ. EN CO £--t" 
INFUT CH 2 FRINT:FRINT 

CHE=INT (CH) 

IF CHE OR CHI THEN 720 

IF CHel THEN 1500 





1560 
1590 
1610 
1650 
1700 
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FRINT:  FRINT 

FRINT'CHARGE UNIF. REF, (TRAVERSE) "3: 
INFUT (à 

FRINT:FRINT 

LirGxL 4 

GReÇIKL. "2/2 

LéeL1 1  GL=GR 

X1#L.1#N1+LZxNA4 


1720 X£=L1#N4+LEENS 
1740 XL LéNSG+LEKNÉé 
1900 VIi=(GR4+X1-X2+FTKXT) /1L 
1820 VasQxl- Vi 
1940 Hi=XT5/HG 
1860 Mi=XZI-X1 





H2=H1 
M2=-X1 


1880 Miz-XE 3 M4: Het 
1907 MA=MI 5 MEME 
1920 MCEMS : MD=M4 
1950 VA=VI : VDE=VE 


1980 HA=HI : HHzz-- 4 

197@ DO. QLSAQEKOKL "4, CEVKTE) 

1960 RA=CKLE/ CEAREVETT) 1 R9=-R0 
2000 GOÜSUR 4500 

2074 FRINT:FRINT: FRINT 


2075 LFRINTSFC (6) "CHARGE UNIF. REFARTIE 
P090 LPRINTSPE (6) "ss, 


2084 AREA 

fé DC:= DC 

207@ ÉCSUE 30Q@ 

S1Q8 LFRINTS LFRINT 3 FRINT 

2120 GOTO 755 

CIQORD REM CAS DE CH, FONCT.HORIZ.EN & 
SOEQ FRINT: FRINT: FRINT 


2040 FRINT'CHARGE PONCT, HORIZ,EN Ho 


2060 INEUT FG 2 PRINT: PRINT 
080 UL=FPGXHG 

2090 El=2*UL#H1 

TION RE=PxUL#k1 

3120 X4=ER14NI-REXNS 

3140 XS=-B1XxN4+H2*xN6 
3160 X6=-BR1XNS+BTXNT 
2700 MS=-UL+X4+X6 

3220 Mé=X4 2 M7=-X5 
ME=NEX6—XS 
V4=(X4+XS-FI#X6) /L 
VE== V4 

H4=X6/HG 

HE=- (PG-H4) 

MA=MS ME=M6 
MC=M7 MD=ME 
3440 VA=VE VD=V4 
3460 HA=HE HH==-H4 
3490 RO=Q R9=Q 
3508 DO=0 

5650 GOSUE 4500 








Mn 
s 
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+890 
ERA 
AG 
4@ 104 
42e 
44.0 
47604 
4RG0 
4108 
4120 
4240 





4:80 
4404 
4418 
4420 
44 FA 
4.4.4 
445 
445 
4460 
A4 
4470 
4475 
4480 
4484 
4488 
4495 
4497 
4500 
ie 

4540 
4560 
4590 
4600 
4810 
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LFRINT 5 LPÉRINT 2 FKRINT 
LFRINTSFC (6) "CHARGE FA SER HOKRT Z ni ous 
LFRINTSPE (6) Memz 

LÉRANT 









FF LFRINT 
GOTO 755 
REM CAS DE CH, FONCT.HORIZ EN C 

FRINT: FRINT: FRINT 

FRINT'CHARGE FONCT, HORIZ EN CO ét 
INFUT FD 3 FRINT: FRINT 

JR DxHD 











: DR IRANEEZ 

HR RNA+ERARNE 

NE 4xNé 

EX Né+ ET XNCE 

W1=x9- X7 1  Wär-X7 

5 W7=X9/NG 

eee TR X END X 
CX7+XO+F TX) /L 

 CFD-W7) 5 Wés-Wi 





ss ME=UWE 

5 MD=W4 

5 VDsWé 
HA=W7 Hs  HHe-W8 
RG: r  R9«xQ 
Da: @ 5 FRINT 


GOSUR 45@° 

PRINT: PRINT à: PRINT 

LRRINTSPC (4) "CHARGE PONCT.HORIZ EN C="PD 
LPRINTSPC (6) "amsmsmonmenmonmcmss 
LPRINT: PRINT 

GOSUE 50Qû 

LPRINT: LPRINT 3: PRINT 

GOTO 725 

REM SOUS-FROGRAMME (4500-4800) 
REM CALCUL DES DEFORMATIONS 
GO=EY*IZ 

G9=EV*I1 

GG=EV*12 

G1= CAKME+MC) #L/ (660) 

Be (MR+BMMC) #L/ (6KG0@) 

Ge (ME4+MO) #L*9/ (16K60) 

Ga (MA+ME) #HG/ (269) 








AG20 GS (MD+MC) HD / (2#68) 

480 FWE=DA+GS 

4840 RE=KA+G 1 

4650 RCSR9+GE 

AGO Gés- CEKMA+ME) *HGT2/ CékG9) 

4680 G67=- C2#kMD4+MC) #HDTE/ (668) 

4890 RA=RE-G4 

4695 RDeKC-G5 

4700 Râ=Q 1:  FRD=D 

ATIQ DESHGERA+GÉ 

4720 DC=HDkRD+G7 

48Q0 RETURN 

4860 REM SOUS-FROGRAMME (5000-9000) 
4870 REM EDITION DES RESULTATS 
“00Q LFRINTSFC (IE) "M OO MENT S " 
DAEQ LPRINTSPE CI) Masse eee eee eme mere I 
JASQ LFRINT 4 FKRINT. 

: MA INT (MK IQGA+, AG) /1RR0@ 
LFRINTSFC (Cé) "MOMENT EN À = "MA 
5 PRINT 5  FRINT 














LFRINTSFE C6) "MOMENT EN E& = "ME 
FRINT  : FECINT 
Le INT OMC TL AQRO+, AGE) / 1 RRQ 
INTSFC (Cé) "MOMENT EN CO + "MC 
FEINT 
MD TNT CMD QAR, QE) / 1008 
LFRINTSFC(é) "MOMENT EN D = "MD 
1 PRINT 24 FAINT 23 WAIT QG 

LEFT NT 2 (6) "MOMENTS EN TRAVEE" 
1 FETNT 











THEN ETQ@ 
THEN 54040 
# (Lx) /24 (Lx) EMB/L+X#MC/L 


1F 
IF 
M 
M=MT 

GGTO 5440 

OO 4ME/L+X#MC/L 















M 
1 440 
EMEA LL. + (Le X) MEL. 










INT (Mk TG, ARS) / 18080 
460 LFRINTSFE C6) "X mUXSFC CE) MX "M 
m4 7@ FRINT 
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5480 
5490 
2:00 
Joe 
SJ :0 
SOS 
59340 
0060 
70 
ptet" 
2600 
610 
“6 0 
5642 
630 
660 
3/7@0 
RQ 
6848 
6060 
6880 
6180 
Ce 
6140 


é160 


6180 
4190 
6200 
&220 
8240 
62:60 
62690 
&:Q8 
&320Q 
6:40 
6500 
6520 
8550 


6555 


6560 
6570 
6575 
85970 
6680 
5080 


PRINT : NEXT X 
LFRINT: PRINT  :WAIT 400 
LFRINTSPC(IQD"RE ACTIONS" 
LPRINTSPC (10) M 
LERINT 

VA=INT (VAx1200+. 205) /1000 
LFRINTSFC (6) "REACTION VERT. EN À ="VA 
PRINT 

HA=INT (HA*1000+. 205) / 1200 
LFRINTSPC (6) "REACTION HORIZ.EN A ="HA, 
PRINT 

VD=INT (VD*1200+. 205) / 1000 
LFRINTSFC (6) "REACTION VERT. EN D ="VD 
PRINT 

HH= INT (HH*1000+. 005) / 1000 
LPRINTSFC (6) "REACTION HORIZ.EN D ="HH 
LFRINT: PRINT :  WAIÏT 300 
LFRINTSFPC(1@)"R OTATIONS" 
LPRINTSPC (D) Mere " 
LFRINT 

RA=INT (RAX100000+. 20001) / 100000 
RE=INT (RE*100000+. 20001) /100000 

RC= INT (RC*100000+. 20001) /100200 
RD=INT (RD*100000+. 20001) /100200" 
DE=INT (DE*10000+0. 20005) / 1U20@ 

DC= INT (DC*10000+0. 20005) / 10000 

FU=INT (FW*100000+. 20001) / 100000 


LFRINTSFC(6) "ROTATION EN À = "RA 
PRINT 
LFRINTSFC(6) "ROTATION EN E = "RE 
FRINT 
LFRINTSFC (6) "ROTATION EN C = "RC 
FRINT 
LPRINTSFC(6) "ROTATION EN D = "RD 


LFRINT : PRINT +:  WAIT 00 
LFRINTSFC(12)" DEFORMATIONS " 
LPRINTSPE CR)" mn 


LFRINT 

LFRINTSFE (6) "FLECHE À 1/2 TRAVERSE = °"FW 
FRINT 

LFRINTSFC(é) "DEFLACEMENT NOEUD K = "DE 
FRINT 

LFRINTSFC (6) "DEFLACEMENT NOEUD C = "DC 


FRINT:  FRINT 
RETURN 


10000 FKRINT 
10100 LFRINTSFC Cé) abaeaaedeedet ee FOOT OON eee eee! 
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PORTIQUE SIMPLE A TRAVERSE BRISÉE 
ARTICULÉ A LA BASE 


Ce programme permet de calculer : 


— les moments fléchissants et les efforts tranchants en B, D etC. 
— les réactions d’appuis en AetenE, 

— les rotations en À, B, D,etenE. 

— les déplacements des nœuds B et D. 

— la flèche au faîtage, 


pour six cas de charges (voir le listing de 1040 à 1140). 


Les données à introduire sont inscrites dans le listing de la ligne 
100 à la ligne 320. 


Il y a deux sous-programmes : un premier de calcul des défor- 
mations (voir le listing de la ligne 8000 à la ligne 8700) et l’autre 
à partir de la ligne 9000 à la ligne 9920, constitue un sous-program- 
me d'impression des résultats. Ce dernier sous-programme contient 
une séquence nécessaire pour arrondir les valeurs des résultats (voir 
les lignes 9015 à 9090). 


EXEMPLE 


3000 daN 








1000 daN/m 


l 7000 daN 
—+ 3000 daN 
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5000 daN 
1000 daN/m 


*x FORTIQUE SIMPLE ARTICULE #% 


UNITES: M EG RADIANS 
DER RERE DOINNÉES 46e EE EEE 
PORTER DU FORTIQUE m) = Æ@ 

HAUTEUR. FOTEAUX fm) = 8 

FENTE VERSANT CA) = 20 
MOMENTS D'INERTIE : 

TRAVERSE. (cm4) = 16270 

FOTEAUX (cm4) = 5790 


MODULE E g/ema) « Z100@0R 


CHARGE UNTF, REF, TOTALE 1000 





MOMENTS ET EFF, TRANCHANTS 


MOMENT EN BE = 
MOMENT EN D: 
MOMENT EN C 
TR. EN Es 
ITR EN D = -9%%4.716 
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REAPTIONS ET ROTATIONS 


REACTION VERT EN À = 10000 
REACTION HORIZ EN À = 240%, 104 
REACTION VERT, EN E = 108068 
REACTION HORIZ EN E = -2402,105 
ROTATION EN À —. REZ 
ROTATION EN H .G549 
FCQTAT TION EN D —, QIS 
ROTATION EN E . AGE 





# 


il 


DÉFORMATIONS 


.2O7E 
— G58 
.AS57 


FLECHE AU FAITAGE 
DEFLACEMENT NOEUD E 
DÉFLACEMENT NOEUD D 


st 
# 






x 


FHARÈE 






MOMENTS ET EFF, TRANCHANTS 


il 


MOMENT. EN EE -—9608.419 
MOMENT EN D —9608,419 
MOMENT. EN © 12989.476 


EFF,TR, EN B = 71168.809 
EFF,TR, EN D x -2215.906 


É] 


RÉACTIONS ET ROTATIONS 


REACTION VERT, EN À 7508 
REACTION HORIZ EN À 1201.@SE 
REACTION VERT, EN E = 2500 
REACTION HORIZ EN E = -1201.@S5 
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ROTATION EN À = -8E-DS5 
ROTATION EN K = .0277 
ROTATION EN D = -.Q@113 
ROTATION EN E = .@20Z 
DEFORMATIONS 

FLECHE AU FAITAGE = .1476 
"EFLACEMENT NOEUD EH = ,.@21 
DEFLACEMENT NOEUD D = .078 


LE ES 


CHARGE FONCT.HORIZ.EN E =5000 


MOMENTS ET EFF.,. TRANCHANTS 


MOMENT EN E 
MOMENT EN D —11127.452 
MOMENT EN C —1909,:515 
EFF,TR. EN EE —1449.481 
EFT,TR, EN D =. -903,91% 


1:872.548 


il 


H # 


REACTIONS ET KOTATIONS 


REACTION VERT. EN À = -1200 
REACTION HORIZ EN 4 = -1609.069 
REACTION VERT. EN E = 12700 
REACTION HORIZ EN E = -1790.922 
ROTATION EN À = .0527 
ROTATION EN KH = .8103 
ROTATION EN D = .8134 
ROTATION EN E = .@5 


DEFORMATIONS 


ll 


FLECHE AU FAITAGE —.@147 
DEFLACEMENT NOEUD KE . 108 
DEFLACEMENT NOEUD D . QT 


HW H 


Kk+x 


CHARGE FONT ROULANT 


CHARGE VERT, FONT, ROUL.=7000 


NIVEAU CONSOLE F.R.= 5 
LONGUEUR CONS. F.R.= 1 


MOMENTS ET EFF, TRANCHANTS 


MOMENT EN EE = 7T864,6R8 
MOMENT EN D 3123312 
MOMENT EN C —419,. 14 


MOM.NIV.F.R.1 = -1959.57 


El 


MOM.NIV.F.RE = 5040.47 
EFF.TR. EN &B = -420.0@64 
EFF,TR. EN D = -2646,747% 


RÉACTIONS ET ROTATIONS 


REACTION VERT. EN À = 46850 
REACTION HORIZ EN À = 391.917 
REACTION VERT, EN E = 35 
REACTION HORIZ EN E = -3591.914 
ROTATION EN 4 = .010: 
ROTATION EN EH = 3,4E-0Z 
ROTATION EN D = 3.SE-05 
ROTATION EN E = .Q01:8 
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DÉFORMATIONS 


FLECHE AU FAITAGE 
DEFLACEMENT NOEUD KE 
DEFLACEMENT NOEUD 


Le. 

HO OH 
Sr. 

D © 

4 & 


[TE 


CHARGE HOKTIZ., FONT, ROUL.. 





MOMENTS ET EFF, TRANCHANTS 


MOMENT EN KE x 7206.144 
MOMENT EN D = -7791,856 
MOMENT EN Co: -2279,87 
MOM.NIV.F.R. 2 14170. 
EFF,TR, EN HE 926, 45 

EFF,TR. EN D 44, TE 


H il ü 


REACTIONS ET KOTATIONS 


REACTION VERT, EN À = -750 
REACTION HORIZ EN À = -2026.019 


REACTION VERT, EN E = 750 
REACTION HORIZ EN E = -973,982% 


ROTATION EN À .- 0459 
ROTATION EN KH = 2%, 6E-05 


A 
# 


ROTATION EN D = ,@11% 
ROTATION EN E = .0:68 


DÉFORMATIONS 


FLECHE AU FAITAGE = —, QUEE 
DEFLACEMENT NOEUD & = ,27%6 
DEFLACEMENT NOEUD D = .2#6 





LES 


CHPAGÉS CUMULE EE 


MOMENTS ET EFF, TRANCHANTS 


MOMENT EN BE = 1172.87 
MOMENT EN D —14927.168 
MOMENT EN € —2658.9"9 
MOM,TOT FR ZE = 15170.5S€ 
EFF,.TR. EN  E —1346,S15 
EFF.TR, EN D -—810.765 


Hoi 


| 


il 


RÉACTIONS ET ROTATIONS 


a9aa 
—16:4.10@S5 


REACTION VERT. EN À 
FEACTION HORIZ EN & 
REACTION VERT. EN E 1100 
REACTION HORIZ EN E —1565.896 
ROTATION EN À = .0567% 
ROTATION EN EE 7E-QZ 
ROTATION EN D -G0148 
ROTATION EN E = ,0507 





Ho 


dl 


# 


DEFORMATIONS 


FLECHE AU FAITAGE 
DEFLACEMENT NOEUD KE 
DEFLACEMENT NOEUD D = 


io 





XX 
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152 


CHARGE FONCT,VERT.EN C =5000 


MOMENTS ET EFF. TRANCHANTS 


MOMENT EN KE = -7271.276 
MOMENT EN D = -7271.276 
MOMENT EN € = 15910.955 
EFF,TR,. EN HE = 
EFF,.TR. EN D = 





REACTIONS ET ROTATIONS 


REACTION VERT. EN À = 2500 
REACTION HORIZ EN À = 908.904 
REACTION VERT. EN E = 2500 
REACTION HORIZ EN E = -908.90S 
ROTATION EN À = -.@iii 
ROTATION EN B = .0128 
ROTATION EN D = -.0129 
ROTATION EN E = .Qii 
DEFORMATIONS 

FLECHE AU FAITAGE = 1221 
DEFLACEMENT NOEUD EH = -.@25 
DEFLACEMENT NOEUD D = .824 


xx 


MOMENTS ET EFF, TRANCHANTS 


MOMENT EN EE = -104.406 
MOMENT EN D = -104.40@é6 
MOMENT EN C = -17:0.507 


EFF,TR, EN BE = -%.56 
EFF.TR, EN D = %,.55 


RÉACTIONS ET ROTATIONS 


[ra] 
15.05 
@ 
15.05 
—7E-0@4 
—4E-04 
TE-04 
6E-04 


REACTION VERT. EN 4 
REACTION HORIZ EN & 
REACTION VERT. EN E 
REACTION HORIZ EN E 
ROTATION EN À 
ROTATION EN E 
ROTATION EN D 
ROTATION EN E 


HW OH OH HN 


WHO 


DEFORKMATIONS 


FLECHE AU FAITAGE 
DEFLACEMENT NOEUD E 
DEFLACEMENT NOEUD D 


—1.9E-05 
—SE-07 
4E-05 


Ho NH 


LES: 


HHRENE FIN 44x24 
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ga CLS 2 PRINT :  FRINT 

10 REM FROGR. FORTIQUE SIMPLE ARTICULE À LA HASE. 
20 REM TRAVERSE BRISEE - FOTEAUX IDENTIQUES. 
30 REM "CAD4" EKQO/9/82Z 
REM & CAS DE CHARGES 
REM UNITES D'ENTREES: 
REM L(m), IX(cm4), E YOUNG(Fg/cm2z) 
FRINT'FORTEE DU FORTIQUE Cm) "3; 

INFUT L 4 FRINT 

FRINT'HAUTEUR DES FOTEAUX Cm) "3 

INFUT H 3 PRINT 

FRINT'FENTE DU VERSANT (2) " 
INPUT F 2: PRINT 
FRINT'INERTIE TRAVERSE (cm4) " 
INPUT Ii 5 FRINT 
FRINT'INERTIE FOTEAUX (oem4) ": 

INPUT IE 4 FRINT 

FRINT'MODULE DE YOUNG (Eg/eme)"; 

INFUT EY 3 FRINT 

FRINT 3 PRINT 3  FRINT : W&IT 50 
FAzF+xL/200 

SESGR (FATE+ (L/2) 72) 

E=I1#xH/(TExS) 

FI=FA/H 3 M=i+FI 

REX (CE4+1) +M 

C=1i+ExM 

NEER+MXxC 

FRINTSFE (5) "4x PFORTIQUE SIMPLE ARTICULE #+%°" 
FPRINESPÉLON ESS SERRE RE RES SSSSSSSSS 

FRINT 5  FRINT 

FRINTSFC (8) "UNITE : Eg, m's FRINT 
jUPRINESRE (OMS Reese esse ol 
y PRINT 5 FRINT #5 FRINT 
FRINTSFC(S) "FORTEE DU FORTIQUE Cm) = ML 
GQ FRINT 3 FRINT 









&1Q FRINTSFE (6) "HAUTEUR FOTEAUX Em) = "H 
&2Q FRINT 3  FRINT 
iQ FRINTSFC (GR) "FENTE VERSANT C4) = "F 


&4G FRINT 53 FRINT 

&SQ FRINTSFC (ER) "MOMENTS D'INERTIE 
660 FRINT 5  FRINT 

680 FRINTSFE (C7 )" TRAVERSE (em4) = "TI 

&9@ FRINT 3 FKRINT 

FAQ FRINTSFE (C7 )" FOTEAUX (oem4) = "IE 

710 FRINT 2:  FRINT 

720 FRINTSFC(R) "MODULE E (Eg/em2) =°"EY 
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7:50 

740 

750 

770 

780 

790 

10G0 
100% 
1005 
1a10 
182@ 
1Q2E 
1Q2S 
1027 
1050 
1240 
1850 
1760 
1@80 
1100 
1110 
1120 
1125 
1150 
11ES 
1140 
1145 
1220 
1240 
1260 
1270 
1275 
1:80 
1400 
1420 
1440 
1460 
1480 
1500 
2008 
2020 
2040 
2060 
2080 
2100 


2120 


PRINT 3  FRINT 
PRINTSRE (8) L 
PRINT 3  FRINT :  FRINT :WAIT 5@0@ 
EY=EY#10"4 

11=11/10"8 

12=12/10"8 

CLS 8 PRINT 3 PRINT Oz:  FRINT 
FRINTSFC (8) "CAS DE CHARGES: " 

PRINT 5:  FRINT 

GOTQ 1040 

CLS 3 FRINT 3:  FKRINT 

FRINT'AUTRE CAS DE CHARGES Q=1 N=Q"; 
INFUT AC +: AC&INT (AC) 

IF AC:1 OK AC<Q THEN 1020 

IF AC=1 THEN 1000 ELSE 9950 
FRINTSFC (8) "1. CHARGE UNIF.REF, TOTALE" 
FRINT 53  FRINT 

FRINTSFC (8) "2. CHARGE UNIF.REF DISSYM, 
FRINT 5  PFRINT 

FRINTSFC (8) "ZT, CHARGE FONCT.HORIZ.EN E" 
PRINT 3  FRINT 

FRINTSFC (8) "4, CHARGES FONT ROULANT" 
PRINT 3  FRINT 

FRINTSFC(R)"S, CHARGE FONCT.VERT.EN C° 
PRINT 53  FRINT 

FRINTSFC(8)"6, TEMFERATUTE" 

FRINT 3  FKRINT 

INFUT CY: FRINT 

GOTO 12680 

FRINT'ERREUR" 

FRINT 3  FRINT 

GOT 100% 

IF CY:6 OR CY£1 THEN 1260 

IF CY=i THEN 2000 

IF CY=Z THEN Z7000 

IF CY=eZ THEN 4000 

IF CY=4 THEN SOD0@ 

IF CYeS THEN 6008 

IF CY=6 THEN 7000 

FRINT 5 FRINT 

FRINT'CHARGE UNIF.REF. TOTALE" 

INFUT Q 5 CFRINT 
Mi=-QuL x CHE XM) / CL KN) 
ME=QxL"2/0+MxMi 

MI=MI 5  Hi=-Mi/H 3: HE=Hi 

VI=QxL./25 Vazvi 
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2140 
2200 


ee 


2240 
2260 
2268" 
2:00 
22370 
2400 
B420 
£440 
2460 
2465 
2500 


PEn0 


ain) ai 


2700 
2800 





4R40Q 
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TisQkL2/ C4KkS) x, S+CME-M1) /S 
FA=QxLST2XxS/ (1TKEVXxT1) 
Fi=SxQxLUTIxG, (19ZKEVXI 1) 
ME=MI MD=ME 
HA=H1 D@=F 1 
RO=FQ  :  KR9=-FA 
GOSUR 8QnQ 
ME=M1 
MC=ME 
HE=-H2 
VE=VE TE=TI 
Tes-Ti TDETE 
FRINT 3  FRINT 
FRINTSFC (8) "CHARGE UNIF.REF. TOTALE ="0G 
FRINTSPC (A) ee see rie mes nn re eee ee ve 
GOSUR 9000 

GOTOQ 1G20 
FRINT 5  FRINT 

FRINT'CHARGE U,R, DISSYMETRIQUE"; 

INFUT QF 5 FRINT 
M4=-QPaL EX C4 SM) / CETRKN) 
MSG." / 16+MKxM4 1: MG=MA 

3e-M4/H 5 H4=HI 


MD=ME 
HA=HI 
VA=VI 










sk QF el. /6 
V4a=QFxL./6: T4z (Mé-MS) /S 

Re (QPFaL Be, 5) / CARS) + (ME--M4) 7/5 
RQ XL UEXS/ CERAKEVXTI 1) 
QKCFAELE 





EXS/ (192KEY*T1) 

7 KQIFHLURKG/ (IQRKEVXTI 1) 

MH:=M4 MD=M6 

HO=HE DA=FE 

RQ=F 2 K9=F 4 

GOSUE 8000 

MR=MA MD=Mé 

MCEMS HA=HE 

HE=--H4 VA=VE 

VE=V4 THSTE 

TD=T4 FRINT 

FRINT FRINT 

FRINTSFC (8) "CHARGE UL.R, DISSYM,="0F 
FPRINTSPECS "ES RE eee po me mo re 
GOSUR 9R@R 

GOTO 14:0Q 

FRINT 3  FRINT 

FRINT'CHARGE FONCT.HORIZ. EN EH"; 
INFUT FV 5 PRINT 





#3 8 23 es 15 es S ** 2 2: 


4080 
4080 
4100 
4120 
4140 
4ién 
418 
4200 
4240 
4280 
45:00 
4400 
444Q 
44460 
4480 
4482 
4484 
4486 
4700 
4750 
5000 
3020 
30:0Q 
5040 
5060 
9120 
3140 
9145 
5160 
190 
195 
3200 
3220 
3240 
S260 
5290 
3310 


3250 
52370 
9374 
3:90 
3400 
5407 
5405 
410 
455 


M9=-PUMHX CE+C) / CEN) 
M7=FVKH MG 
MB=PVKH/24+M4M 
sr 
HS== (FV-H6) 
V&=FV#H/L 
VE=-PUXH/L 
R@=Q  : R9=<0 
ME=M7 : MD=M9 
DO=Q : HB=Hé 
GOSUE 8000 
ME=M7 MD=M9 
MC=MB HA=HS 
VE=Vé HE=-H6 
VA=VS 3 PRINT 
PRINT 3:  FRINT 
FRINTSFC (8) "CHARGE FONCT.HORIZ.EN E ="FPV 
PRINTSFC (8) " 
GOSUE 9000 
GOTO 1020 
PRINT 3: PRINT 
FRINT'CHARGES FONT ROULANT" 
PRINT 3:  FRINT 
FRINT'CHARGE VERTICALE"; 
INPUT FR :  FRINT 
FRINT'NIVEAU CONSOLE F. R."; 
INFUT AR : PRINT 
IF AR>° OR AR“Q THEN 5120 
FRINT'LONGUEUR DE LA CONSOLE"; 
INFUT LC‘: PRINT 
IF LCÿL/5 OR LC{O THEN 5160 
“LeAR/H 5 VB8=PRaLC/L 
XX=PRELCX CE+C-KX CZ#AL 2-1) ) / (2KN) 
MG=FR#LC-XX 
MH=FRELC/2-MXXX 
MIæ-XX :  H7=XXx/H 
HB=-H7 V7=FR-VE 
ME=MG :  MD=MI 
HO=H7 :  DO=@ 


= RO=Q 5: R9=0 


SX=FRELEX CH-ZKAR) / CZKEYKIZ) 
GOSUE 8000 

PRINT 2 PRINT :  FKRINT 
LETAO=DD: LETAX=RA 

LETADSF 3: LETAVEDE 

ME=MG 5:  MD=MI 
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S44N MC=MH :  HA=H7 

5460 VA=VT7 s  VE=VE 

600 HE=HE 

S614 LETAY=RE LETAZ=RD 

5615 LETAUSRE FRIN” 

Gen EFo=-ALEXX +  ES=FRxLC-ALEXxxX 

PRINT 5  FRINT 

FRINTSFC (9) "CHARGE VERT. FONT. ROUL. ="FR 
FR ï NTSFC (A ) Hs de mo dun Dés Conte vom 8 Gen ne em ce oi en des sd nm 
PRINT +  FRINT 

22 FRINTSEC (CB) "NIVEAU CONSOLE F.R.= "AR 
PRINT 3  FRINT 








SSté FRINTSFC (8) "LONGUEUR CONS. FR. "LC 
se PRINT 5 FRINT 


au40 GOSUR SOGR 

DO PRINT 5 FRINT 

6645 FRINT'CHORGE HORIZONTALE FONT ROULANT'"; 
3847 INPUT FH 3 FRINT 

Sang Qlietx CERHI-ARTE) 

do7Q Qi ikHx CEkH+FA) 

5690 OEeHTRx CHE) +F A CERH+F A) 

600 HLeFH#ARX (CO1+02) / C4A#HKOT) 

5680 HISHL-FH 8 VLEFHKAR/L 

648 VJ=-VL 5 MI=FHKkAR-HLXxH 

5690 ME=PFHEkAR/2-HL4 CH4F A) 

3708 ML=-HL#H 

2710 KA=Q :  R9xQ 

5720 SY=-FHkARX CHAR) / CRREYXTE) 

9740 HA=HL +:  ME=MJ : MD=ML 

740 GOSUE 6000 
g7o0 LET B5=F 
770 LET BE=DE 
977 LET KB=RE 
3784 LET KHESRE 












LET H9=DD 
LET K7=KA 
LET EX=RD 


9790 MCEME 2  VE=VL 
792 ME=MIJ 5  MD=ML 
J018 VAEVIJ 5  HA=HIJ 
O0 HEz-HL 1  E4=-HIJ#xAR 
3825 PRINT :  FRINT 


3830 FRINTSFC (8) "CHARGE HORIZ. FONT, ROUL. =°FH 
2928 FPRINTSRC(S) Messe eee ere fl 
3840 GOSUE 9008 

50846 FRINT 2  FRINT 3  FRINT 

5860 FRINTSFC (8) "CHARGES CUMULEES FONT ROULANT" 
5865 PRINTSPC (8) Massenet a mn 
3070 FRINT 5 FRINT 
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DE 390 
900 
1910 
920 
EG 
50 
dr 


5947 


QUE 
retour 





WE 1 
3967 
3970 
BAG 
6A2A 
&A4U 
Dé A 
6AEQ 
&1 A0 
G1'EQ 
ë 1 40 
él 68 


6400 
é420 
&4 <a 
6460 
6500 
6550 
6680 
6400 
7aRG 
7020 
7040 
7RR@ 
F71@Q 
7120 
7148 
7170 











ME=MG+MIT 5 MD=MI+ML 
MCEMA+ME 5 VA=V7+VI 
VE V@+VL 3 HA=H7+HJ 
HE=HG-HL 5 RESAU+FÉE 
DD=40+R9 5 RR=AY+ER 
FRA=E7+AX 3  DRFAV+E8 
FaR4AD 5 RD=EX+AZ 


E2rE4+ES 

JSUR 9000 

@ : FH&Q  : EZ=Q 
GOTOQ 1070 

FRINT 3 FRINT 
FRINTUCHARGE FONCT, VERT, AU FAITAGE"; 
INFUT FF 3 PRINT 
UG=-FFxLAC, CÆKN) 

5 USsFF/E 
JsPFLeR/ CAN) 

Ué=US s  Uis-UQ/H 
JA=FF#LES/ (GKEVET1) 
JisFFaLIxS, CEA4KEVEXT 1) 
U4Æ=UT 

MD=UJ 









QD HO :  RKO-JD 


D@=JÂ 1  R9=JE 
GÉSRE BAG 
5 MD=UI 
US. #5 VA=SUS 
VE=Ué 1 HASUSE 
HE{14 4 PRINT 5 FRINT 
FRINTSFC (8) "CHARGE FONCT.VERT.EN CO ="FF 
FRINTSRE (8) Ve esse esse 
GQSUE 9AQR 
GOTOQ 100 
PRINT 3 PRINT 
FRINT'DIFFERENCE DE TEMPFERATURE!: 
INFUT TE 3: FRINT 
FRINT'OOEFF, DILATATION"; 
INFUT EF 4 FRINT 
Zi CEREVETIKLHEPATE) / (SXHEN) 






ZRæ21 os  ZieMeZi 
Z4=-21/H :75%74 
R@=@ :  H@=74 
R9=Q :  DO=0 
ME=71 :  MD=2? 


GOSUE 8000 
ME=Z1 :  MDeZ® 
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7540 
7570 
7590 
7592 
7595 
7700 
7800 
7900 
8000 
8020 
8040 
8060 
8100 
8120 
8140 
8160 
8200 
8220 
8240 
8245 
G2SS 
8260 
8280 
Le pet 17) 
STQS 
83510 
S5E20 
8:40 


8:60 


8:60 
8700 
9000 
OR 
SAGE 
FOQS 
9Ai1G 
9O12 
SOS 
9016 
SB18 
9820 
DOS 
5a:0 
PAS 
9040 
SOA4S 
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MC=ZT :  MHA=Z4 
HE=25 : VA=0Q : VE=Q 

FRINTSFC (8)" TEMFERATURE = "TE 
FRINTSPC CO)" me J 
FRINT ; FRINT 

GOSUE 9000 

GOTO 1070 

REM CALCUL DE DEFORMATIONS 

GO=EY+I1 :  G9-EY*IS 

Gi=HOkLESXFA/ COxGD) 

GE= CPxME+MD) #S/ (CE*x60) 

G?= (ME+MD) #LxS/ (B*xG0) 

F=D0+62-61 

GA4=ExG1/L 

G5=-MEXH/ (2469) 

Gé=-MEXH"?/ (6#69) 

G7= (ME+24MD) #5/ CE#G0) 
GB=-AES (MD) #H/ (2469) 


DX=-FRALCX CHAT -IXARE CIKH—-AR)) / C6K69) 
SEEFHKARE CHAR CTXH-AR) / Céx69) 
RE=RQ+GZ-G4 

RD=R9-67+6G4 

FA=RE-GS 5  RE=RKD-G8 

IF CVYe4 AND FR:4 AND FHeQ THEN RA=RE+SX-6G5 
IF CYe4 AND FH:QD THEN RA=RB-SY-GS 
DEr=HKkRA+GEé 

DD=HKRE+E9 

IF CYæ4 AND FR:Q AND FHeQ THEN DE=HxkKR£+Gé+DX 
IF CY=4 AND FH:Q THEN DR=H#RA+Gé-SER 
RETURN 

PRINT 5  FRINT 53  FKINT 

THEN TEz- (MB-MC) /5S 

: THEN TDæ- (MC-MD) /5S 
FRINTSFC (8) "MOMENTS ET EFF, TRANCHANTS" 
FRINTSPE CB) Messe ae caen em 
FRINT 5 FRINT 
ETSINT(E6*1000+.0005) /1800 
ES=INT(ES+*1000+.0005) /1000 
EA4=INT(E4*x1000+.0005) / 10R@ 

ME=TINT (NEx100@+. 0005) / 1008 

MD= INT (MD#1000+. 0085) / 1020 

MC=INT (NC*x1000+.0005) /1200 
TRSINTTE#1000+. 0045) /14@0 

TD INT (TD#1000+, 0005) / 1000 

VA=INT (VA#1000+. 0085) /1000 





9050 
SQSE 
9055 
9060 
90685 
9068 
9870 
9075 
9080 
909 
9100 
9120 
9150 
9170 
9190 
200 
9205 
9207 
9210 
9215 
9217 
9220 
9227 
9220 
DETO 
9235 
9227 
GE40 
9247 
9245 
9250 
9270 
97:00 
92:50 
9:70 
9:90 
9500 
QS2 
De @ 
GS7E 
9600 
20 
9450 
9680 
9700 
9720 


DD=INT (DD*1000+.0005) /1200 
DE=INT(DR*x1000+.0005)/1000 
VE=INT (VE#1000+. 0005) /1000 
HE=INT(HE*x1000+.0005) /12a00 
HÉ=INT (HA+x1000+.0005) /1720 
F=INT(F#10000+.00005) / 10700 
RA=INT(RA*10000+.00005) / 10000 
RE=INT(RE*10000+. 00005) /120R0 
RD=INT (RD*10000+. 00005) /10400 
RE=INT(RE*10000+.00005)/10000 


FRINTSFC (8) "MOMENT EN KE = " ME 
FRINT 3  FKRINT 

FRINTSFE (8) "MOMENT EN D = " MD 
FRINT 5  FRINT 

FRINTSFC (8) "MOMENT EN CC = " MC 
PRINT 3:  FKRINT 

IF CY£#4 THEN 9245 

IF CY=4 AND FH*Q AND EZ£*E4+ES THEN 9250 
IF CY=4 AND FR:Q AND FH:QD THEN 9240 
FRINTSFC (8) "MOM.NIV.F.KR.1 = " E6 
FRINT 3  FKRINT 

FRINTSFC(S) "MOM.NIV.F.R.2Z = " ES 
FRINT 3  FKRINT 

GOTQ 9ETS 

FRINTSFC(R) "MOM.NIV.F.R.H = " E4 
FRINT 5  FKINT 

GOTO 924 

FRINTSFC(8) "MON. OT F.R 2 = " EZ 
FRINT 3  FRINT 

FRINTSFC(S8)"EFF.TKR. EN KE = " TE 
FRINT 3  FKRINT 

FRINTSFC(S)"EFF.TKR. EN D = " TD 
FRINT 5  FKRINT 5  FRINT :WAIT 560 
FRINTSFC (8) "RÉACTIONS ET ROTATIONS" 
PAINTSPL(DI esse mes esse sesenes" 
FRINT 3:  FRINT. 

FRINTSFC(8) "REACTION VERT. EN 4 = "VA 
FRINT 3  FKRINT 

FRINTSFE (GR) "REACTION HORIZ EN À = "HA 
FRINT 5  FRINT 

FRINTSFC (8) "REACTION VERT. EN E = "VE 
FRINT 3  FRINT 

FRINTSFC(8) "REACTION HORIZ EN E = "HE 
FRINT :  FRINT : WAIT 590 

FRINTSFC (8) "ROTATION EN À = "KA 


FRINT 53  FRINT 
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9750 
9770 
9790 
9795 
5800 
982 

9840 
9860 
98e 
98e 
9884 
9890 
995 
9900 
9905 
9920 
9950 


FRINTSFC (8) "ROTATION EN E = 
FRINT 5 FRINT 
FRINTSFC (8) "ROTATION EN D = 
FRINT 5  FRINT 
FRINTSFE (8) "ROTATION EN E = 


PRINT 4 PRINT 3  FRINT : WAIT 
FRINTSFC(14)"  DEFORMATIONS " 
PRINESPECEAY esse ses N 
FRINT 3 PRINT 5  FRINT 
FRINTSFC (8) "FLECHE AU FAITAGE = 
FRINT 5  FRINT 

FRINTSFC(S) "DEFLACEMENT NOEUD KE 
FRINT 3  FRINT 
FRINTSFC (8) "DEFLACEMENT NOEUD D 
FRINT 3  FRINT : WAIT SQ@G 
RETURN 

ELS 3  FRINT 3 “PRINT : PRINT 


10000 FRINTSFC(8)" KRIIRE FIN #44 
18100 END 
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"RE 


“RD 


"RE 
500 


"F 


"DH 


"DD 


DE AL 


PORTIQUE SIMPLE A TRAVERSE BRISÉE 
ENCASTRÉ A LA BASE 


Ce programme permet de calculer les sollicitations et les défor- 
mations décrites antérieurement auxquelles s’ajoutent les moments 


d’encastrement en À et E. 


EXEMPLE 


20 % D 3000 daN 
—+ 





1000 daN/m 





3000 daN 


1000 daN/m 
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**x FORTIQUE SIMFLE ENCASTRE ** 


UNITES M EG  RADIANS 


HÉREEEREXX DONNEES KE EEE 


FORTEE DU FORTIQUE (m) = 20 
HAUTEUR FOTEAUX (m) = 8 
FENTE  VERGSANT (% = 20 


MOMENTS D'INERTIE (cm4) : 


* TRAVERSE 16:70 
* FOTEAUX =5790 


MODULE YOUNG (Eg/cm£) + 2100000 


HE DE HD DE EH HE DE EMMEDEMEDEDEDE DEEE EXE EEE 


CHARGE UNIF.REF. TOTALE =1000 


MOMENTS ET EFF, TRANCHANTS 


MOMENT. EN À = 12946.8504 
MOMENT EN BE = -20647.07 
MOMENT EN C = 20954.45 
MOMENT EN D = -20647.07 
MOMENT EN E = 172946.8504 


EFF,TR, EN HE 
EFF,TR. EN D 


8982.768 
-8982.269 


| 


REACTIONS ET ROTATIONS 


REACTION VERT. 
REACTION HORIZ 
REACTION VERT. 
REACTION HORIZ 
ROTATION 
ROTATION 
ROTATION 
ROTATION 


FLECHE AU FAITAGE 
DEFLACEMENT NOEUD KE 
DEFLACEMENT NOEUD D 


Eu 


CHARGE U.R. DISSYM.=10 
MOMENTS ET EFF., TRANCHA 
MOMENT EN À = 5652.4 
MOMENT EN KE = -11144 
MOMENT EN C = 10477. 
MOMENT EN D = -9502. 
MOMENT EN E = 7294.75 
EFF,TR, EN B = 7027.00 
EFF,.TR. EN D = -1959. 


REACTIONS ET ROTATIONS 


REACTION VERT, EN À = 
REACTION HORIZ EN À = 
REACTION VERT. EN E = 
REACTION HORIZ EN E = 
R°TATION EN À 

ROTATION EN KE = 
ROTATION EN D = 
ROTATION EN E = 


10000 
4199.74 
10000 
-4199.241 


MEET T 


-D2537 
—. 2554 


. 2301 
—. 047 
-046 


20 


NTS 


6921 
. 491 


225 
979 
8184 
87 
181 


7582.095 
2099.62 
7417.904 
-2099.621 


- 201806 
—7,27E-03 
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DEFORMATIONS 


FLECHE AU FAITAGE = .115 
DEFLACEMENT NOEUD KE —2E-05 
DEFLACEMENT NOEUD D .-@44 


il 


il 


CHARGE FOCNCT,HORIZ.EN E =7000 


MOMENTS ET EFF, TRANCHANTS 


MOMENT EN = —75:94.,457252 
MOMENT. EN = 6151.41? 
MOMENT EN —1674,007% 
MOMENT EN D = -4272.783 
MOMENT EN E = 46181.77795 
EFF,TR. EN K = -767.746 
EFF.TR. EN D —254.79 


Om D 


il 


RÉACTIONS ET KOTATIONS 


REACTION VERT. EN 4 = -571.189 
REACTION HORIZ EN 4 1693. 274 
REACTION VERT. EN E 521.188 

REACTION HORIZ EN E = -1:06.7467 
ROTATION EN 4 
ROTATION EN E 
ROTATION EN D 
ROTATION EN E 


#1 
il 


Él 


à 
4.08E-0: 
6. 28E-QZ 
QG 


HO oi 


DEFCORMATI CONS 


FLECHE AU FAITAGE 
DEFLACEMENT NOEUD E 
DEFLACEMENT NOEUD D 


—.Diz 
.Q75 
. 7. 


il 


il 


CHARGE  FONT  ROULANT 


CHARGE VERTICALE =7Q00@ 


NIVEAU CONSOLE FR, = S 
LONGUEUR CONS, FR, =1 
MOMENTS ET EFF,. TRANCHANTS 


MOMENT EN 8 = -795,.717577 
MOMENT EN B = 2175.758 
MOMENT EN C = -732,178 
MOMENT EN D = -1624,.5S75 
MOMENT EN E = 2406.2S1S5 
MOM,NIV,FR,1 = —-35512,646 
MOM.NIV,PF.R,2 = 5687.2:54 
EFF,TR, EN Be -285,147 
EFF,TR, EN D = -87.511 


RÉACTIONS ET KOTATIONS 


REACTION VERT, EN 4 
REACTION HORIZ EN À 
REACTION VERT. EN E 
REACTION HORIZ EN E 


4809.985 
30%. 865 
190.016 
— 505.866 


HW OH 


ROTATION EN À = 

ROTATION EN KH = 1.2E-0% 

ROTATION EN D = 2.57E-07% 

ROTATION EN E = Q 
DEFORMATIONS 

FLECHE AU FAITAGE = —6E-0% 

DEFLACEMENT NOEUD E = .03 

DEFLACEMENT NOEUD D = .027 
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CHARGE HORIZONTALE =5:000 


MOMENT EN -75232.59926 
MOMENT EN 1972.541 
-1437.066 


MOMENT EN 

MOMENT EN E 
MOM.NIV.F.R.2 
EFF,TR, EN E 
EFF,TR. EN D 


—2099,.245 
33595, 61764 
ADI. 1175 
—374.,74 
64, QE 


À 
EH 
MOMENT EN. C 
D 
E 


HO OH OU OU OH 


REACTIONS ET ROTATIONS 


REACTION VERT. EN À = -207,59 
REACTION HORIZ EN À = 

REACTION VERT, EN E = 205.589 
REACTION HORIZ EN E —686.858 


ROTATION EN À = &@ 
ROTATION EN H = -2,2E-04 
ROTATION EN D = 4,26E-03 
ROTATION EN E = Q 
DÉFORMATIONS 
FLECHE AU FAITAGE = —.0147 
DEFLACEMENT NOEUD E = .047 
DEFLACEMENT NOEUD D = .@4i 


CHARGES CUMULEES FONT ROULANT 


MOMENT EN À = -8525.91684 
MOMENT EN KE = 4148,799 
MOMENT EN € = -2169,2704 
MOMENT EN D = -7725,815 
MOMENT EN E = 5801.96918 
MOM.TOT F.R.1 = -3517.646 
MOM,TOT F,R 2 = 7720.467 
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EFF,TR. EN EE 
EFF.TR. EN D 


—619.48Z 
—1S%,447 


Hoi 


RÉACTIONS ET ROTATIONS 


REACTION VERT, EN 4 = 66@4,:94 
REACTION HORIZ EN À —1809.278 
REACTION VERT, EN E = 295,605 
REACTION HORIZ EN E = -1190.723 
ROTATION EN & = 0 
ROTATION EN E = 9,.9E-04 
ROTATION EN D = &6,8%E-07 
ROTATION EN E = G 


DÉRAPAATIONS 


FLECHE AU FAITAGE = —.(0206 
DEFLACEMENT NOEUD & = .477 
DEFLACEMENT NOEUD D = .@69 


. FONCT,VERT.EN C. =5000 








MOMENTS ET EFF,. TRANCHANTS 





MOMENT EN À = SOS%,87072 
MOMENT EN Ex -76829,42 
MOMENT. EN C = 15950.017 
MOMENT EN D = -7829,4% 
MOMENT EN E = SGS2,.87072% 
EFF.TR, EN B = 2155,649 
EFF,TKR. EN D = -21355.45 
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REACTIONS ET KOTATIONS 


REACTION VERT, EN À = 2500 
REACTION HORIZ EN À = 1610@.281 
REACTION VERT. EN E = 2500 
REACTION HORIZ EN E = 1610.81 
ROTATION EN 4 = @ 
ROTATION EN K = 9.13E-0Q3 
ROTATION EN D = -9,14E-Q35 
ROTATION EN E = Q 
DEFORMATIONS 
FLECHE AU FAITAGE = .0998 
DEFLACEMENT NOEUD ER = -,@% 
DEFLACEMENT NOEUD D = .@19 


TEMPFERATURE = 50 


MOMENT 
MOMENT 
MOMENT 
MOMENT 
MOMENT 


318.0:4251 
-139.539 
-253.932 
-139.539 
318.0%4"51 


REACTION VERT, 
REACTION HORIZ 
REACTION VERT. 
REACTION HORIZ 


ROTATION 
ROTATION 
ROTATION 


ROTATION” 


EN À = Q@ 

EN À = 57.196 
EN E = @ 

EN E = 57.196 
EN 


A = 0 

EH = -5.9E-04 

EN D = 5.8E-04 
E 


La 
si 


18 
=0 
50 
40 
ET) 
60 
#4 
1aû 
1204 


(es 








40 
420 
4404 
445 
45e 

AUS 
46 
és 


475 


DEFORMATIONS 


FLECHE AU FAITAGE 


DEFLACEMENT NQEUD E = 
DEFLACEMENT NOEUD D = 


EH FIN 


5 FRINT FRINT 

FORTIQUE SIMPLE ENCASTRE 
TRAVERSE BRISEE. FOTEAUX 
MÉCADAE" ERO/9/BZ 
& CAS DE CHARGES 
UNITES D'ENTREES 
REM Lm), IX(em4), E 
REM UNITÉS (SORTIES): M EG 
FARINT'PORTEE DU FORTIQUE 
INOUT LL. FRINT 

FRINT'HAUTEUR DES FOTEAUX 


LE 

REM 
REM 
REM 
REM 
REM 


M EG 


Li 


(m) 


fm) 


INPUT OH 3 FRINT 
FRINT'PENTE DU VERGSANT C4)" 


INFUT F FRINT 
FRINT'INERTIE TRAVERSE 
INEUT T1 FRINT 
FRINTUINERTIE FAOTEAUX 
INFUT TE FAINT 
FRINT'MODULE DE 
INFEUT EY FRTNT 
FFINT FRINT 


(cm4) 


{cm4) 


YOUNG 










: 5 FRINT 
>) 

1XH/ CLExS) 

FIsFA/H Mel+ET 

E+E 

+3 M 

Bu CE+1+M+MT7) 
XCE+FT 2) 








HLEREX 


YOUNG (Eg/ 
RADI ANS 


WAIT 


! 


3. SE-OS 
—SE-0 7% 
—SE-0Z 


IDENTIQGUES,. 


cm) 
Mu 
“ 


: 
4 

u 

* 

tie ts 
" 

in 
di 


CEg/cma) 


er 
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200 
A 
340 
560 
565 
7 
5902 
sa 
&1@ 
&E@ 
GE 
&4HA 
650 
860 
680 
&90 
700 
710 
720 
FE 
740 
750 
770 
780 
790 
1000 
1007 
1005 
1010 
1020 
LOT 
1025 
1027 
1070 
1040 
185 
1060 
1080 
1100 
1110 
1170 
1175 
1150 
1155 
1140 
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FRINTSFC (6) "x PORTIQUE SIMPLE ENCASTRE +*" 
PRINTSFC C6)" nel 
PRINT +:  FRINT 

FRINTSFC (8) "UNITES: Kg, m': PRINT 
PRINTSPC (9) 4 
PRINT + PRINT + FRINT 


FRINTSFC (8) "FORTEE DU FORTIQUE Cm) = "L 
PRINT +: PRINT 
FRINTSFC (8) “HAUTEUR POTEAUX Em) = "H 
PRINT +: PRINT 
FRINTSFC (8) "FENTE VERSANT CG) = vp 


FRINT 5  FRINT 

FRINTSFC (8) "MOMENTS D'INERTIE :" 
PRINT 53  FRINT 

FRINTSFC(7 )" TRAVERSE (cm4) = "Ii 
FRINT 3  FRINT 

FRINTSFPC(7 )" FOTEAUX (cm4) = "I2 
FRINT 5  FRINT 

FRINTSFC(8) "MODULE E (Kg/cem£) = "EY 
FRINT 3  FRINT 
FRINTSPE (8) Me aa a ae ae eee ; 
PRINT 3 PRINT 3:  FRINT :WAIT 540 
EY=EY#10"4 

11=11/10"8 

2=12:/10"8 

CLS 3  FPRINT 3 PRINT :  FRINT 
FRINTSFC(8) "CAS DE CHARGES: " 

FRINT 3  FRINT 

GOTO 1@40 

CLS 5 FRINT #5  FKRINT 

FRINT'AUTRE CAS DE CHARGES Q=1 N=g'; 
INPUT AC +: AC=INT (AC) 

IF AC:1 OK AC£Q THEN 1020 

IF AC=1 THEN 1000 ELSE 9950 
FRINTSFC (8) "1, CHARGE UNIF.REFP. TOTALE" 
FRINT 3 PRINT 

FRINTSFC(8)"2, CHARGE UNIF.REF DISSYM. 
PRINT 3:  FRINT 

PFRINTSFC(8) "ZT. CHARGE FONCT.HORIZ.EN E" 
PRINT 5  FKRINT 

FRINTSFC(8)"4. CHARGES FONT ROULANT" 
FRINT 3  FRINT 

FRINTSFC(8)"S. CHARGE FONCT.VERT.EN C" 
PRINT 3  FRINT 

FRINTSFC (8) "6, TEMFERATURE" 


1145 
1250 
1340 
1760 
1570 
1275 
1280 
1470 
1420 
1440 
1460 
1480 
1500 
2000 
2020 
2040 
2060 
2080 
2100 
2110 
2115 
2170 
2150 
2140 
2150 
2160 
2165 
7170 
2180 
7190 
2200 
2270 
2240 
2:00 
23:20 
2540 
2560 
2:80 
2400 
2465 
2500 
2520 
2700 
2800 
7000 
3070 


FRINT 5  FRINT 

INPUT CY: FRINT 

GOTO 1280 

FRINT'ERKEUR" 

FRINT 3  FRINT 

GOTO 1002 

IF CY:6 OR CY£1 THEN 1260 
IF CY=1i THEN 2000 

IF CY=2 THEN 7000 

IF CY=S5 THEN 4000 

IF CY=4 THEN 5000 

IF CY=5 THEN 6200 

IF CY=é THEN 7000 

FRINT L FRINT 
FRINT'CHARGE UNIF.REF., TOTALE" 
INEUT Q 3  FRINT 
Gi=QOxkL"2/ (16%N1) 

Q2=k% (8715S*xFI)+FI#(6-FI) 
QEskx (Lé+1SKkFT)+FITT 
Mi=Q1ixQ® 

M2=-Q1#075 

MS=M1 :  M4=M2 
ME=QKL"2/8-FIxMi+MxME 
TizQGxLl®3/ (4#S) #,5+(M3-M2) /S 
T=-T1 5  Vi=Qxl/2 
H1=(M1i-M2) /H 

HE=HI 1  Va=Vvi 
F1=5k0QxkL"7TxS/ (192KEY#It) 
FO=CQxL"2#S/ (12+EY+#I11) 





MR=M2  :  MD=M4 

MA=MI  :  ME=MS 

RO=FQO  :  DG=FI 

R9=-FQ :  HB=HI 

GOSUE 8000 

ME=MS  : “MD=M4 

MC=MZ 3  VA=VI 

VE=V2 :  HA=HI 

HE=-HZ 3  TEH=TI 

TD=TZ :  DD=-DD 


PRINT :  FKRINT 

PRINTSFC (8) "CHARGE UNIF.REF. TOTALE ="0 
FRINTSPC 8)" —— " 
GOSUR 9000 

GOTO 1020 

PRINT 5:  FRINT 

FRINT'CHARGE U.R, DISSYMETRIQUE"; 
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INFUT GF 4 FRINT 
DLeGF+x (L/2) 2/2 






















DM&QF# (L/2)%2/4 : DN=DM 
DRSF TX CZ#DL+DN) 


DSxCxDL+DM+MXxDN 
DT= (DRE 1-DEXR) / CEKkN1) 
Ds (DGSE DR ER) / CENT) 
DJÆDM/ CNE) 
M&=DT-DJ 
M@=DT+DJ 
M7=-DW-DJ 
MG: DW+DJ 
MS=DL/Z2-FT#DT-MxDU 
V4= (DL -E#DJ) /L. 
1FxL./ 2 V4 
DT+DW) /H 5 H4#HE 
TEsCPALE, (46) +, 5+(M8-M7) /S 
-(M8-M9) /S 5: H4=HI 
ikG/ CIRGAKEYXT 1) 
#G/ (1JEKEYET1) 
CTRQPALOERS,/ CIQEKEYET 1) 
ss MDE=M9 

ME: M@ 
5 DO=FTE 
3 :  K9xF4 
: 6070 








ME=M7 
MD=MG 
VA=VE 
HA=HE 
TESTS 





HE 1H 4. 
TD=TA4 DD=-DD 

FRINT FRINT 

go FRINTSFC (C8) "CHARGE U.R, DISSYM.="QF 
PRINTSPE CE) Merise ee de note an D Er re em 
GOSUR 9G@G 

GQTO 1420 

FRINT 5. FRINT 

FRINT'CHARGE FONCT,.HORIZ. EN E'": 

4R4Q INFUT F4 3 FRINT 

AD6Q XIE ESKPURE AK CEHRKFTEE+FT) / CERN) 

480 PURE AEMRE NT 

A1BQ KES PFVKHKE, CERN) 

AL Jis-X1-XE 

414 J: + CFVKH/2-XT) 

ALSQ JEs-FPURFAZEHEFT EX 1+MEXE 
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4180 
4200 
4220 
4240 
4260 
4500 
4510 
4320 
4540 
45:50 
4400 
4420 
4440 
4460 
4480 
4500 
4600 
4620 
4640 
4700 
4800 
S00@ 
DDEQ 
JA:0 
2040 
“06 
120 
1 40 
145 
“160 
190 
J195 
200 
J210 
Dee 
SET) 
240 
DEN 
260 
270 
290 
200 
D3ie0 
30 


360 


J4=X2- (PUXH/2-X 2) 
JS=-X1+XZ 

Jérs- (FURH-ERX TS) /L 
J9=PV/2-(X1+X2) /H 


J8=-(FV-J9) J7=-J6 
ME=JZ :  MD=J4 
MA=JI 5  ME=JS 
RO=D 5 Das 
HB=J9 : R9:Q 
RA=Q : RE=Q 
GOSUE 8000 

MA=JI 5  MB=JE 
MD: 40 5 MC=JT 
ME=JS  :  VA=Jé 
HA=JS  :  HEs=-J9 
VE=J7 3  DD=-DD 
FRINT 5  FRINT 


FRINTSFC (8) "CHARGE FONCT.HORIZ.EN E ="FPV 
FR I NTSFC ( 8 ) VU Lu sun vo ce ee rome see cote ane ane men cons vote me ne meme cote come come mue me mue me co oem mes me me UE 
GOSUE 9000 

GOTO 1720 

FRINT 3  FRINT 

FRINT'CHARGES FONT KROULANT" 

FRINT 53  FRINT 

FRINT'CHARGE VERTICALE"; 

INPUT FR 3 FRINT 


FRINT'NIVEAU CONSOLE F, R,'"3 
INFUT AR 5 FKRINT 
IF ARSH OR ARSO THEN S120 


FRINT'LONGUEUR DE LA CONSOLE": 
INEFUT LE 3  FRINT 


IF LOSL/S OK LC£Q THEN 5160@ 
ALEAR/H 3 BTE (H-AR) /H 
XA4=FRALCX CEKFTUR- (1 -RBT2) KH) 
XS=FRALCX (CFTC + CIkALTE- TL) HE) 
XG:= (XÆHHE TX SR) / CEXNT) 
X7=(CXSHKEZ-X4KR) / CEXNI) 
XO=FPRaLC/ 2% CH (CAL-RT) KE) /NE 
Wi=-X6-X0 W5=-X6+Xe 
BeX7+FRALC/2-X6 
W4xX7- (FRALC/2-X8) 
Wis-FTkPFRELC/24+FTkX6+MXX7 
W7= (FRALC-ZEX8) /L 
ME=MG 5 MD=MI 
WB=PRKLC, CE#H) —(CX6+X7) /H 
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9265 Wé=FR-W7 5 W9=WB 


2370 ME=WE :  MD=W4 
9373 MA=SWI :  ME=WS 
2:90 RA=0 5:  R9=0 

2390 DA=@G :  HO=W8 


J29S RA=Q 5: RE=Q 
5408 GOSUER 89000 
410 DD=-DD 


S4E0 LET AQ=DD :  LET AVEDE 
9440 LET AD=F 5  LET AY=RE 
460 LET AZ=RD ss  MA=WI 
470 ME=WE 5 MCEWS 
9480 MD=W4 5 ME=WS 
490 VAsWé 5  VE=W7 
SA0Q HA=WE 5  HEz=-W9 


U0S EébsWi-WErAR 
ESEWL-WRXAR+FFOELC 
y PRINT 3  FRINT 
FRINTSPFC (8) "CHARGE VERT, FONT. ROUL, "FR 
FRINT 3 FRINT 
2 FRINTSFC (8) "NIVEAU CONSOLE F.R,= "AR 
F FRINT 5 FRINT 
6 FRINTSFC(S) "LONGUEUR CONS. FR, "LC 
PRINT 5 FRINT 
GÜSUR 9G0G 
3 FRINT 5 FRINT 
FRINT'CHÈRGE HORIZONTALE FONT ROULANT"; 
INFUT FH 3 FRINT 
: HXAFREETX CL+HRT) 
LésFHeALe CHAR X C1 + AL. 
HAE 2 LAEFHX CH- An 
I ELOREHERFT EL EG 
TkLGKkC-Lé#E 
CHIKET-HESRR) / CERN) 
Ge (HIER LR) / CERN) 
OYSPFHKER/ CH) —(L7+L8) /H 
OG=FH-09 
X9= (CHXE+FA) 24 4RE SX CHOBHHREAHFATT) 
0 L9: SE CARHEHHRE-ENRARKE-GEAR+GKE A) /X9 
69 NPSARSEKER CHKEÉHENHE+F A) ZX 
“ NB= CF AN CENHKF A AREFA-TEAREHI+HKF ASE) / X9 
HER CHAR) ) / C8 +) 
HAE CLOA4ND+NG+N7) / CH) 
FH-O9) #H4+01-FH%x CHF 
FREE CNGALOHNE-N7) / CEKH) 
Q7EFHKAR/L4+ (01-05) /L 













































Ü9 x CHHF A) +05+07%L/2 
"1-09 RES 


: MD- =(14 
5:  MEx=0S 
: RO=Q 


5 HG=09 
5747 RQ : RE=0@ 

5750 GOSUE 8A@Q@ 

S7ES LET H£eF +  DDr-DD 
5770 LET ES=DE : LET E9=DD 
5775 LET EBeRB s LET EX#RD 
5704 MAO! sr  MRe0® 
5795 MC=0% : MD-=04 
SOUS ME=05 s  Vâz-06 
5010 VE=07 :  HA=--08 


3815 
3020 
BONE 
aB5Q 
ets Beta 
5640 
3646 
3860 
36865 
"870 
36880 
5990 
4900 
390 
3910 
3915 
3920 
3970 
H7o0 
5956 
I) 
5970 
&AR8 
&0EG 
8040 
6050 
6A60 
6080 
6290 
6100 


HE=-09 
EPA ET AR + OX CH AFRO /H+CIE RAR /H 


FRINT 53 FRINT 


FRINTSFC (8) "CHARGE HOKIZ, FONT. ROUL, &°FH 
FRINTSPL (D) SSSR ee see nes es NM 
GOSUE 9Q00Q 
FRINT 5 PRINT 3  FRINT 
FRINTSFC (8) "CHARGES CUMULEES FONT ROULANT" 
F K INT SF C (8) Vous cote s00e vote v0006 rame nee tte asc i000 um mue cui cms cos 0606 iuve ee ae ete dde ins mue ms con ones ame ons one ÊÈ 
FRINT FRINT 
M0 1 +41 ME=WE+02 
MC=QT+U MD=W4+04 
ME=QS+UWS VETW7+07 
VA=Wé-06 HÂ=-08+W8 
HEz- (09+W9 RRSAY+ER 
RD=EX+A7 DÉ=AV+E8 
DD=E9+A0 F=AD+ETZ 
RA=Q RE=0Q 
EZ=E4+ES 
GOSUE 9000 
FRE œ FHEsQ 5: EZ=0 
GOTO 1820 
PRINT : FRINT 
FRINT'CHARGE FONCT,VERT. AU FAITAGE";: 
INFUT FF 3 FRINT 
UL= SPF AL CEHBDMEKET+FT) / C4#N1) 
Les TPE LEE UM, CENT) 5 U4æUR 
RE FI#UIL+PF#L/4 
UésFPF /E : U7æ=Ué6 5 USæUi 
UB= (U1- CUR) /H : U9=UR 











ES OS 3 NO #8 3 22 32 2 
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6110 
6120 
6200 
&Z10 
6220 
62 Q 
68240 
&4:@0Q 
64400 
6410 
6420 
6450 
6440 
6480 
6300 
8550 
6608 
6800 
7000 
7@020 
7040 
7080 
7100 
7120 
7140 
7150 
7170 
7200 
7220 
72:50 
7500 
73510 
7520 
7540 
7350 
7400 
7500 
7510 
7520 
7530 
7540 
7590 
75392 
75395 
7700 
7800 
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NIsPFFKLExS/ C24KkEVXT 1) 


VA=FFXLES/ (BkEY*I1) 
ME=UT :  MD=U4 
ME=US :  Mâ=UI 
D@=Y1 :  RO=YO 
HA=US :  R9=-YO 
RE=Q :  RA=0 
GOSUER 8000 
MA=U1 :  ME=U? 
ME=US :  MD=U4 
MC=UZ :  VA=U6 
VE=U7 :  HA=UB 
HE=U9 DD=-DD 
PRINT + PRINT à: PRINT 
FRINTSFC (8) "CHARGE FONCT.VERT.EN C ="FPF 
PRINTSPC (8) an “ 
GOSUE 9000 
GOTO 1020 
PRINT +: PRINT 
FRINT'DIFFERENCE DE TEMFERATURE"; 
INEUT TE : FRINT 
FRINT"'COEFF. DILATATION": 
INPUT EF : FRINT 
TZ=QMEVEILKEFKTEXL/ (HEGHN1 ) 
Zi=TZ*(H+2+F1) 
D=-TZ#(K-F1) 
ZE=-Flx71+M#ZD 
Z8=(Z1-Z2) /H 
Z5=71 :  Z4=1? 
Z9=28 
ME=22 :  MD=Z4 
MA=Z1 :  ME=Z5 
DO=Q :  RO=0 
R9=Q :  HO=Z8 
RA=Q :  RE=<0 
GOSUE 8000 
Mé=Z 1 :  MB=Z2 
ME=25 :  MD=Z4 
MC=Z3 :  VA=0 
VE=Q :  HA=Z8 
HE=Z9 
FRINTSFC (8) " TEMFERATURE = "TE 
PRINTSPE BD" “ 
PRINT. : PRINT 
GOSUB 9000 
GOTO 1070 


790@8 
8008 
8070 
8040 
IUT") 
8100 
81:00 
8140 


9QAS 
ER 
QQiE 
FQIS 





REM CALCUL DE DEFORMATIONS 
GOSEYKIL :  G9<EVxI12 

Gi=HQ#LkxSkxFA/ (6*G0@) 

Gi= CEkME+MD) +«G/ CI#60) 

ès (ME+MD) #LxS/ (8x650) 

F: =DQ+G2-G1 

GX G 1 /L 

GSe- (MA+ME) #H/ (2469) 

Gé: CEkMA+MER) #HT2/ (669) 

G7= (MR+E#MD) #6) CixGQ) 

GG (ME+MD) #H/ C£xkG9) 

EYs- CRAME+MD) HE / (6x9) 

. ce FR LC CAE Te FO CHAR) / C6 659) 
SESFHIEAR SE CHAR CERH- AR) / Cox G9) 












RRS=RQ+GT- GX 

RD=R9-G7+GX 

KA=Q :  RErD 

DR=G6 

DD=E9 

IF CY=4 AND FREQ AND FHeQ THEN DReGé+DX 
IF CYe4 AND FH: THEN DR=Gé-5SR 

RETURN 

PRINT 5  FARINT 5 FRINT 

IF CY THEN TR&- (ME-MC) /S 

LEFT CN THEN TD&- (MC-MD) /S 
FRINTSFC (6) "MOMENTS ET EFF, TRANCHANTS" 
FR I NTSFC ( 8 ) AU os me mue some co0e moe 0000 mue mme mms ones ones ame s000 nes con mm mue one o000 come me ones mme mue DU 


FRINT 5 FRINT 

E6=INT(Eé6#1000+. 0005) /100@ 
ES=INT(ES+*100@+, 0005) / 1000 
ES=INT(E4+k1000+. 0005) /10@0 
ME=INT (MB#1000+. 0005) /1000 


5 MD& INT (MDk1000+. 0085) / 1000 


1 VA 





MC: INT (MCx1000+.0005) /1000 
TREINT(TE*1000+.0@0005) /1000 
TD=INT(TD*1Q0Q0+., AQ2S) / 17000 
ÆINT(VARIQDA+. GAGS) / 1000 
DD=INT (DDx1000+. A0) / 1008 






DGSE DBE=INT (DEX1000+, 0005) / 17000 


FOSS 
FG60@ 
PRESS 
7068 
sae@ 
FA98 
91@û 





VE INT (VE*1000+,. ARS) /1000@ 
HE=INT CHE%1000+. 0005) /1008 
HÉ=INT CHA IQQQ+. GARE) / 1400 
FeINT(F+10000+. 00005) / "0008 
RD=INT (RD*x1G0000+, ARQQS) / 100008 
RE=TNT (RB*100000+. 00005 / 100000 
FRINTSFC (8) "MOMENT EN À = " MA 
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9105 PRINT :  FRINT 


9110 FRINTSFC(8) "MOMENT EN BE = " ME 
9120 FRINT :  FRINT 
9150 FRINTSFC(B)"MOMENT EN C = " MC 
9155 PRINT : PRINT 
9160 FRINTSFC(8) "MOMENT EN D = " MD 
9165 PRINT : PRINT 
9170 FRINTSFC(B)"MOMENT EN E = " ME 


9175 PRINT :  FRINT 

9200 IF CY£5:4 THEN 9270 

9205 IF CY=4 AND FHSQ AND EZ£*E4+ES THEN 9270 
9210 IF CY=4 AND FR:Q AND FH:Q THEN 9240 

9215 PFRINTSFC(8) "MON.NIV.P.R.1 = " Eé 

9217 PRINT Oz:  FRINT 

9220 FRINTSFC(8) "MOM.NIV.F.R.2 
9227 PRINT os  FRINT 

92268 GOTO 9255 

9270 FRINTSFC(8) "MOMN.NIV.F.R,.2 
Q2ES FRINT 3 PRINT 

92357 GOTO 9275 

9240 FRINTSFC(8) "MON.TOT F.R.1 
9245 PRINT os: PRINT 

9255 PFRINTSFC(8)"MOM.TOT F.R 2 
9270 FRINT :  FRINT 

9275 PRINTSFC(8)"EFF.TR. EN K 
9280 FRINT x:  FRINT 

9290 FRINTSFC(8)"EFF.TR, EN D = " TD 
93:00 PRINT 3 PRINT :  FRINT :WAIT 500 
9250 FRINTSFEC (8) "RÉACTIONS ET RKOTATIONS" 
9570 PRINTSPLO(B) Mereesmmmmenmesesemesess = 
9590 PRINT : PRINT 

9500 FRINTSFC(8) "REACTION VERT. EN À 
9520 PRINT :  FKRINT 

9550 FRINTSFC(S8) "REACTION HORIZ EN 4 = "HA 
9573 FRINT 3:  FRINT 

9600 FRINTSFC(R)"REACTION VERT. EN E = "VE 
9620 FRINT :  FRINT 


ES 


E4 


H 


E6 


EZ 


" TE 


fl 


"VA 


9650 FRINTSFC(S) "REACTION HORIZ EN E = "HE 
9680 FRINT 3  FRINT : WAIT 5Q0 

9700 FRINTSFC(S) "ROTATION EN À = "KA 
S72Q FRINT 2  FRINT 

9780 FRINTSFC (8) "ROTATION EN KE = "KE 
977@Q FRINT :  FRINT 

9790 FRINTSFEC(S) "ROTATION EN D = "KD 


9795 FRINT os  FRINT 
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9980 FRINTSFE C8) "ROTATION EN E = °KE 
9620 FRINT 2 PRINT 3 PRINT 5 WAIT S5Q@ 
9840 FRINTSFC (14) DEFCOIRMATIONS ° 
FRINTSPFCE (14) " Sr 
A PRINT 23  FRINT 3  FRINT 

2 FRINTSFC C8) "FLECHE SU FAITAGE = UF 
PRINT 35 FRINT 
FRINTSFC C8) "DEFLACEMENT NOEUD BP = "DE 
JOSS FRINT 5 FRINT 

9900 FRINTSFC (A) "DEFLACEMENT NOEUD D = "DD 
DOS FRINT 3  FRINT 3 WAIT 2:66 

RETURN 

FA { 5 PRINT 5  FRINT 25 FRINT 
1AAUA FRINTSFE CE) " RU FIN ae" 
LAB UND 
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P.. DE ROULEMENT 


POUTRE DE ROULEMENT SUR APPUIS SIMPLES 
SOUMISE AUX CHARGES ROULANTES D'UN PONT ROULANT 


Ce programme permet de calculer : 


— les moments fléchissants maximum dûs aux charges verticales 
et horizontales. 

— les réactions d’appuis 

— l'effort tranchant maximum 

— le moment d'inertie nécessaire suivant la condition de flèche 
imposée. 


Il est possible d'introduire un coefficient dynamique. 


EXEMPLE 


Pv Pv 








Fresnes 


P\, — 9000 daN 
PH — 1200 daN 
p — 150 daN/m 
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FQOUTRE DE ROULEMENT (SR C1 FONT ) 








sir nue DONNEES DS men nus es te De MN 2e ne 





= LA FOUTRE (Mel @ 
VERTICALE CdaN) =9000@ 
HORIZONT,  {daN) A 
“ DES GALETS M) ; 
. FERM, CdaN/Mi =150 
FLEÈCHE ‘6 Le 0 pen 174 
DYNAMIQUE =. 15 
YOUNG  CdaN/CME) 2100800 









Mer RESULTATÉE 666 


MOMENT MAX. VERT, CdaNM) =sé@nér, S 
MOMENT. MAX. HO, CdaNM) = 7000 

ARE SE MOM. MAX (M) =4, 282 
REACTION EN À CdaN)  #9866,095 

à LL EN HO (CdaN) 119685, 10@4 
“"MAXAEN & CdaN) 17670 
FLECHE (M) =, QE 

MOM, D'INERTIE (CM4)  =70902.5298 














KOHCK HE HE HE HE HE JE EM M JE NE ME Ke JE MEME EME DE JE NE EN EEK 


1@ REM FOUTRE DE ROULEMENT C1 FONT) 

28 KEM MFRI" ERO/SE 

en FEM CALOUL AUX CHARGES. 

27 REM VERTICALES ET HORIZONTALES 

30 REM UNITES SORTIES: M daN CM4 

4 REM UNITES ENTRÉES: L(M) ,E (daN/CM£) 
JA CLS 8  FRINT 3  FRINT 

&@ INPUT "MODULE DE YOUNG CdaN/CME) "SE" 
FA FRINT 5  FRINT 

96 INFUT "PORTÉE DE LAS FOUTRE (ML 

SG FRINT 3 FRINT 

104 INPUT "CHARGE VERTICALE (dar 
re FEÉTNT #4 FRINT 

INPUT CHARGE HORTIZONTALE CdaN) "3 FY 
FRINT 5  FRINT 











960 

SEA 

1AG@ 
LUE 
1A5Q 
18040 
1R4S 


1068 
1100 T 


1120 
1140 
116 
1188 


INF 






F "EÉCARTEMENT DES GALETS (FD EC 
IF ECSL THEN FRINT'ERREUR" 

IF ECSL THEN 125 

FRINT 2  FARINT 

INFUT CHARGE FERMANENTE  CdaN/M)à "3 tt 
FEAINT 2 FRINT 

INPUT CCOEFF, DE FLECHE (L/FIU3E 
FRINT 5 PFHINT 
INFUT EFF,. DYNAMIQUE"; CD 
PRINT 5  FRINT 3  FRINT 
FRINTSFC (D) Mememecens DONNEES 
FRINT 5 FRINT 
FRINTSFC C4) ÉORTEE DE Lé FOUTRE  (M)æM"lL 
FRINT 3 FKRINT 

FRINTSFC (4) "CHARGE VERTICALE CdaN) "FF 
FRINT 3 FRINT 


















1 FRINTSFE (4) CHARGE HORIZONT,  CdaN) æ"FYy 


FRINT FRINT 

FÉINTSFC (4) MECART, DES GALETS (CM) NEC 
FARINT FRINT 

FRINTSPC (4) CHARGE FERM. CU KR, daN/Ph) "0 
FRINT 3: FARINT 

FRINTSFC (4) "MODULE YOUNG CdaN/CME) æ"EY 
FRINT 2 FRINT 

PFRINTSPE: CAN ins se ee poire ms een men one nec en M 
WAIT 40 : FRINT 

FRINT 3 FRINT 3 FRINT 

REM CALCUL MOM,INERTIE 

EVE 3e 1 ("4 

L's EneC'eL UE 

I Fe (LE) 

IC (LC) UE 

Let CTA+TBKTC) / CEBAXEY#L) 

Fe CTA+IBKIC) / CERAKEVET) 












FæCDKF 
TA=Q/2+F% CB-EC/L) 

REM TA EFF.TR.MAX. (CHARGE F EN A) 
XA=L./2-FHxEC/ (C+4%F) 

REM XA ARSCISSE MOM. MAX. 

D / + (B-EC/LeBkx@/L) 

HOME T 1 

PP +0 

Lk (4 F +0) 

ES=Q/FP+2 

EA= (SOR(CE1/E7) -E%) #L 
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S EF 40/20) 
ue ‘4 
4e. 4REY 


THEN MY=XORMS-Mé ELSE MY=M4 
ECCEA THEN MG=XGEMI-ME ELGE M@=MS 

A ME ET MY MOM. FLEX, VERT.ET HORIZ. 

MQr: TNT CM GG A+, AGE: / 1 A0 

PE TNT CMV XI QG G+, QQQS) / 1800 

KB TNT CXU TL QRG+, GARE) / 170% 

TISINTIT II PAG +, RAGE) / 100 

INTTE#1AGQ +, ARE) / 1000 

FFC CA) Macdeaedere RESULTATS dei! 
FRINT 

C4) "MOMENT MAX, VERT, Cd'aNM) = "MG 
FRTINT 

A MOMIE MAX. HORS. CdaNM) "MY 















MOM. MAX (M) æ"X0@ 

ACTION EN À  CdaN) =" Ti 
ENT 
| CdaN) ="T® 
TR MAXCEN À CdaN) "TA 





PRINT : PRINT 
INTSFC C4) CMOM, D'INERTIE CCNM4) 2°T#10"8 
INT FRINT 

ENTSEFC C4) Mae de dede de Me ee MEE MEME DE MH DE ME DE DE HÉAEJÉME E RE EN 






Léé 0 F 
LéaQ F 
1 7A 
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POUTRE DE ROULEMENT SUR APPUIS SIMPLES 
SOUMISE AUX CHARGES ROULANTES DE DEUX PONTS ROULANTS 


Ce programme calcule : 

— le moment fléchissant maximum dû aux charges verticales. 

— les réactions d’appuis 

— l'effort tranchant maximum 

— le moment d'inertie nécessaire suivant la condition de flèche 
imposée. 

On peut appliquer aux charges verticales un coefficient dyna- 
mique. 

La validité du calcul impose P, > P,. 


EXEMPLE 

















Pi — 8000 daN 
P; — 4000 daN 
p = 150 daN/m 
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FOUTRE DE ROULEMENT C2 FONTS 


ones mme DONNEES ÉSÉRtnese m SN muns 


FORTEE DE LA FOUTRE (Mz 10 
CHAR RQUL.. FI (daN) = 6400 
GE ROUL, FE (daN) = 4008 
GALETS FONT LM € 
Hate EAU 2(M= 









NT FLE CHE (L./ F) = 
COEFF I CTENT DYNAMIQUE Los 
MODULE YOUNG CdaN/CM) = 2100000 








eee MEÉGUILTATS eee kde dede 


MOMENT MAX, CdaNM) x 44121,077 
ISSE MOM, MAX  (Mz 4,75 

CTION EN À CdaN) = 12207, 50% 
CTION EN KE CdaN) # 1449, 49 

ou Te MAX EN À Ca): QU 

ECHE CM) = QE 
D'INERTIE (CM4) = 07700.98û8 










AH NE HEURE NE MEME DEN AE AE DEEE HE EDEN DEEE HN 


FOQUTRE DE RQ 
PROG. 














1 °M daN CM4 

L (MISE CdaN/CMs5 
INT 

YOUNG  CaN/CMES USE" 


40 
48 
és 
70 


94 INPUT PORTÉE 





DE LA FOUTRE (MIEL 
RTNT 





SA FRINT 5 FF 
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ROUL, Fi CdaNi "srl 


108 INFUT "CHARGE 
: “PRINT 


118 FRINT 
INFEUT 
IF Fi 
IF Fi 
FRINT 
IF Flé 
INPUT 




















FE (daN)'spPE 
SÉIANTIERREUR" 
if 





PÉCARTEMENT GALETS PONT 1 (Hits 
| NT 
MENT GALETES PONT Z (its 
“ECINT 

PENTRE PONTS (PERCHE) Chæts pe 


CRE) IR Lee CARO) ER OR FL. 









Ciel CHE CR Le CHR 0) CG OR BL 
FÉRMÉNENTÉE  €daN Pr ls 0 
NT 

DE 
NT 
D'YNAMT QUES 3 CD 


CHARGE 








"CO CHE (LP 


MEU 








DONNEES 





PRINT 

FRINTS 
FRINT os 
FRINTSFPE (4) 

XINT # PRINT 

ÿ PRINTSFEC (4) "CHARGE ROUL, F2  CdaN) & "Fe 
PRINT + FRINT 
FRINTSPE (4) “ÉCART. 
INT + 


C (4) "FOR DE Lé FOUTRE Mhz UL 


INT 











GE ROUL, F1 CdaN) 5 FT 












GATETS FONT 1(Mz "A 













GALETS PONT ZE (Miz MC 
FONTES CM) sx UE 
AA 

(UF daN/MDæ 0 


ENTRE 
MAT 









ICIENT FLECHE (L/Fie UE 





à PRINT 3  FRINT 
3 FRINTSFE C4) COEFFICIENT DYNSMIQUE. æ "CD 
GAS FRINT 5 FRINT 
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NTSFE (4) MODULE YVOUNS  CdaN/CME & MEY 
ÉINT 





MT 
5 FRINT 
2  FRINT 








a TRANS MAX FOUR FU ALI DROIT DE À 
CR CAE) +0 El ef) JL. 
ÊRE { >) 








14 
1éié 


Le CK (HEC 

re X (A 

LIN 

INT MOT AGE, QE 






CéF) Me ee EH HORONEE 
FRINT 
FÉINTSFC CH) MOMENT MAX, CcaNMD "MG 
PRINT 3 FRINT 
CINTSFC C4) PABSCISSE MOM, MAX (Me "Xxa 
FRINT 3: FEINT 
FRINTSFE C4) "RÉACTION EN & CdaNi æ "TI 
FRINT 5  FARINT 
FRINTSFC (4) CREACTION EN E CdaN) zx "TE 





SUIL TÉTTES ee ee ee 











FRINT 

BEC CA) PEFF, TR, MAXCEN 6 CdaN)z !TM 
FAINT 

ENTSEE C4) FLE 
ENT ; FRTINT 

INTSRFE CA) CMOM, D'INERTIE COM æ "Jai RTEs 

; FRTNT 

PACS € A à 14e Me EM NE AE HE ME Eee DE RE ME NE EME EM EN MEME ME NE EE EX! 









IE 


CMD = °F 


END 
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Re. 


LES DOSSIERS DE LA CONSTRUCTION 


Cet ouvrage comprend dix-neuf programmes de Résistance 
des Matériaux, écrits pour les micro-ordinateurs ORIC-1 et ORIC 
| ATMOS. 


Les ingénieurs et les techniciens des bureaux d'études ainsi 
que les élèves-ingénieurs trouveront dans ce livre les programmes 
nécessaires pour le calcul des éléments de structures usuelles. 


L'ouvrage est divisé en quatre parties : le calcul des caracté- 
ristiques géométriques des sections, le calcul des poutres ayant 
diverses conditions d’appuis, poutres continues, le calcul des 
portiques simples de formes courantes soumis à divers cas de 
chargement, et le calcul des poutres de roulement. 


| Les programmes sont écrits en BASIC Microsoft, ce qui les 
| rend opérationnels sur toutes les machines — et elles sont nom- 
breuses — qui disposent de ce langage. 


EYROLLES 3715 





L'LILENTEE 


SONY 9140 13 L'AI40 YnS 
XNVRLVN S30 JINVLSIS3U 30 SINWVUPOUd 


SERRON TE us 


